A way for capturing the screen and saving it to a file:

Code:
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 Function SaveScreen(ByVal theFile As String) As Boolean
On Error Resume Next

    '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

SaveScreen = True
Exit Function
End Function

Usage

Call SaveScreen("C:\Windows\Desktop\screen.bmp")
And then you can use the code (which is a great code) that kedaman is going to send you to make it a jpg file .