Сохранить изображение - 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

Никто не знает?О_о

null

а еще при выводе на печать печатает только фон((

я не пойму, никто не знает или не хочет помочь? в чем дело?

Решение задачи: «Сохранить изображение»

textual
                            Листинг программы 
                        
                            AutoRedraw = True