Сохранить изображение - VB

Dim t, t1, y, y1
Private Sub Command1_Click()
t = 0: y = 0
For t1 = 0 To 100
y1 = 50 * Sin(314 * t1)
Line (t, y)-(t1, y1)
t = t1: y = y1
Next t1
End Sub
 
Private Sub Command2_Click()
CommonDialog1.Filter = "Jpg | *. JPG "
CommonDialog1.ShowSave
SavePicture Image, CommonDialog1.FileName
End Sub
 
Private Sub Form_Load()
Scale (0, 200)-(100, -200)
Command1.Caption = "Запуск"
Command2.Caption = "Сохранить"
Command3.Caption = "Печать"
End Sub