Para guardar el formulario prueba con esto:
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Const VK_SNAPSHOT = &H2C
Private Sub Command1_Click()
Clipboard.Clear
Call keybd_event(VK_SNAPSHOT, 1, 0, 0)
DoEvents
Picture1.Picture = Clipboard.GetData()
Command2.Enabled = True
End Sub
Private Sub Command2_Click()
With Commondialog1
.DialogTitle = "Guardar imagen"
.Filter = "Bitmap (*.bmp)|*.bmp"
.CancelError = True
.Flags = &H2
.ShowSave
SavePicture Picture1.Picture, .FileName
End With
End Sub
Me avisas que tal...
