Alguem sabe se tem como salvar a imagem do formulario....

Como se fosse um form1.printform q salva em um arquivo de imagem ao invés de imprimir?

obs.(Não precisa ser necessariamente um arquivo de imagem)

 

Obrigado a todos q responderem...

SavePicture Form1.Image, "Seu DiretórioSua imagem"

Exemplo:

SavePicture Form1.Image, "c:imagem.bmp"

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

Public Sub SimularPrintScreen()
    Call keybd_event(VK_SNAPSHOT, 1, 0&, 0&)
    Picture1.Picture = Clipboard.GetData
    SavePicture Picture1.Picture, "C:     etse.bmp"

End Sub

 

Private Sub Command1_Click()
    SimularPrintScreen
End Sub

 

Adicione um picutre no seu form.