PRINTSCREEN VIA CÓDIGO

 
Private Declare Function GetDesktopWindow Lib [Ô]user32[Ô] () As Long
Private Declare Function GetDC Lib [Ô]user32[Ô] (ByVal hWnd As Long) As Long
Private Declare Function BitBlt Lib [Ô]gdi32[Ô] (ByVal hDC As Long, ByVal x As Long, ByVal y As Long, _
  ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, _
  ByVal ySrc As Long, ByVal opCode As Long) As Long
Private Declare Function ReleaseDC Lib [Ô]user32[Ô] (ByVal hWnd As Long, ByVal hDC As Long) As Long

Private Sub Form_Load()

    Me.WindowState = vbMinimized
   
    Dim scrHwnd As Long
    scrHwnd = GetDesktopWindow
    
    Dim shDC As Long
    shDC = GetDC(scrHwnd)
    
    Dim screenWidth As Long, screenHeight As Long
    screenWidth = Screen.Width \ Screen.TwipsPerPixelX
    screenHeight = Screen.Height \ Screen.TwipsPerPixelY
    
    BitBlt FormScreenCapture.hDC, 0, 0, screenWidth, screenHeight, shDC, 0, 0, vbSrcCopy

    ReleaseDC scrHwnd, shDC
    
    FormScreenCapture.Picture = FormScreenCapture.Image
    
    Me.WindowState = vbNormal
End Sub