Работа с буфером обмена - VB

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

Как написать процедуру обработки события нажатия кнопки, которая реализует действия: сохранить картинку с формы в буфере обмена, открыть программу PAINT и вставить в нее картинку из буфера обмена?

Решение задачи: «Работа с буфером обмена»

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

                            Private Sub Command1_Click()
 
'Очищаем буфер
Clipboard.Clear
'проверяем тип данных
Picture1.SetFocus
If TypeOf Screen.ActiveControl Is PictureBox Then
'забор картинки в буфер
Clipboard.SetData Screen.ActiveControl.Picture
End If
'запускаем paint /уточнить директорию/
ProgGO = Shell("C:\WINDOWS\System32\mspaint", 1)
'вставляем в paint через правка-вставить
 
 
 
 
End Sub
 
Private Sub Form_Load()
'введите путь к картинке /App.Path & "\2.jpg"/
Picture1 = LoadPicture(App.Path & "\2.jpg")
End Sub
                        