'Captura la pantalla activa y la guarda en formato BMP
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
  ByVal dwFlags As Long, ByVal dwExtraInfo As Long)


Public Function fSaveGuiToFile(ByVal theFile As String) As Boolean

'   Name:       fSaveGuiToFile
'   Author:     Dalin Nie
'   Written:    4/2/99
'   Purpose:
'       This procedure will Capture the Screen or the active window of your Computer and Save it as 
'       a .bmp file

'   Input:
'       theFile   file Name with path, where you want the .bmp to be saved

'
'   Output:
'       True if successful
'

Dim lString As String

On Error goto Trap
'Check if the File Exist
    If Dir(theFile) <> "" Then Exit Function

    'To get the Entire Screen
    Call keybd_event(vbKeySnapshot, 1, 0, 0)

      'To get the Active Window
    'Call keybd_event(vbKeySnapshot, 0, 0, 0)
 
    SavePicture Clipboard.GetData(vbCFBitmap), theFile

fSaveGuiToFile = True
Exit Function

Trap:
'Error handling
MsgBox "Error Occured in fSaveGuiToFile. Error #: " & Err.Number & ", " & Err.Description

End Function

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)