Access - Capturar imagen

Hola a todos lo que yo necesito es Capturar la pantalla activa y la guardarla en formato BMP

Encontre este codigo pero al parecer le falta algo o algo esta mal

'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

Aquí tienes una posible solución para capturar la pantalla activa y guardarla en formato BMP utilizando el código que proporcionaste:


Puedes llamar a la función `fSaveGuiToFile` y pasarle como argumento la ruta y el nombre de archivo donde deseas guardar la captura de pantalla en formato BMP. Por ejemplo:


Recuerda que necesitarás los permisos adecuados para guardar el archivo en la ubicación especificada.