Private Sub Command1_Click()
Dim Filter As String, Sfile As String
 
Filter = "Archivos de Imagenes" & Chr(0) & "*.bmp;*.jpg;*.gif;*.wmf"
        Sfile = OpenDialog(Me, Filter, "Seleccione un archivo", App.Path)
        If Sfile <> "" Then MsgBox Sfile
End Sub

Private Sub Command1_Click()'poner una imagen en el clipBoard
Dim Img As Picture
 
Clipboard.clear
Set Img = LoadPicture("C:\archivo.bmp")
Clipboard.SetData Img
End Sub
 
Private Sub Command2_Click()'guardar la imagen del clipboard
SavePicture Clipboard.GetData(vbCFBitmap), "C:\archivo2.bmp"
End Sub