Capturar pantalla

[seba123neo]

Hola, ¿ y porque no podes ocultarlo y mostrar depues el form y cargar la imagen en el picturebox ? algo asi:

Código vb:

Option Explicit
 
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
 
Private Sub Capturar()
    Me.Visible = False
    Clipboard.Clear
    Call Pausa
    Call keybd_event(44, 2, 0, 0)
    DoEvents
    Me.Show
    If Clipboard.GetFormat(vbCFBitmap) Then
        Picture1.Picture = Clipboard.GetData(vbCFBitmap)
    Else
        MsgBox " Error ", vbCritical
    End If
End Sub
 
Private Sub Command1_Click()
    Call Capturar
End Sub
 
Private Sub Pausa()
   Dim vPausa As Long
   vPausa = 1 + Timer
 
    While vPausa >= Timer
        DoEvents
    Wend
End Sub
 

saludos.