Сохранение файла в bmp формате - VB

Формулировка задачи:

Кaк сделaть чтoбы пoсле рисoвaния метoдaми line() и circle() мoжнo былo этo сoхрaнить кaк .БМП фaил????

Решение задачи: «Сохранение файла в bmp формате»

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

                            Private Sub Form_Load()
Picture1.Circle (Picture1.Width / 2, Picture1.Height / 2), 350, 1
Picture1.Line (0, 0)-(Picture1.Width, Picture1.Height), 1
End Sub
 
Private Sub Picture1_Click()
'Запрос на сохранение изображения
Dim i As Integer
i = MsgBox('Вы че, хотите сохранить это???', vbInformation + vbYesNo, 'Attention!!!')
If i = vbYes Then
' Если ответ положительный то сохраняем
SavePicture Picture1.Image, 'c:Picture1.bmp'
End If
End Sub
                        