关于VB6.0picturebox问题？

Question

各位大佬，在自学VB6.0，想实现在图片画线的功能，PICTUREBOX载入图片并画线，但保存的时候只能保存图片，画的线不能保存。以下是代码，麻烦指导下。谢谢！

Private Sub Command1_Click()
CommonDialog1.Filter = "JPG ??(*.jpg)|*.jpg"
CommonDialog1.Action = 1
Path = CommonDialog1.FileName
Picture1.Picture = LoadPicture(Path)
Picture1.Line (30, 30)-Step(100, 100)
End Sub

Private Sub Command2_Click()
SavePicture Picture1, "C:\Users\lenovo\Desktop\13213.jpg"
End Sub

Answer 1

Private Sub Command1_Click()

CommonDialog1.Filter = "JPG ??(*.jpg)|*.jpg"

CommonDialog1.Action = 1

Path = CommonDialog1.FileName

Picture1.Picture = LoadPicture(Path)

Picture1.Line (30, 30)-Step(100, 100)

End Sub

Private Sub Command2_Click()

SavePicture Picture1.Image, "C:\Users\lenovo\Desktop\13213.jpg"

End Sub

Private Sub Form_Load()

Picture1.AutoRedraw = True

End Sub

Answer 2

，想实现在图片画线的功能，PICTUREBOX载入图追问

已经在picturebox里面载入图片，并用line画线，但保存的时候只能保存图片，而不能保存画出来的线