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 Declare Function GetVersionExA Lib "kernel32" _
      (lpVersionInformation As OSVERSIONINFO) As Integer

Private Type OSVERSIONINFO
    dwOSVersionInfoSize As Long
    dwMajorVersion As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String *  128 
End Type

Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12

Dim blnAboveVer4 As Boolean

Private Sub Command1_Click()
    If blnAboveVer4 Then
        keybd_event VK_SNAPSHOT,  0 ,  0 ,  0 
    Else
        keybd_event VK_SNAPSHOT,  1 ,  0 ,  0 
    End If
    SavePicture Clipboard.GetData, "c:\temp\test" & Format(Now, "h_m_s") & ".bmp"

End Sub

Private Sub Command2_Click()
    If blnAboveVer4 Then
        keybd_event VK_SNAPSHOT,  1 ,  0 ,  0 
    Else
        keybd_event VK_MENU,  0 ,  0 ,  0 
        keybd_event VK_SNAPSHOT,  0 ,  0 ,  0 
        keybd_event VK_SNAPSHOT,  0 , KEYEVENTF_KEYUP,  0 
        keybd_event VK_MENU,  0 , KEYEVENTF_KEYUP,  0 
    End If
End Sub

Private Sub Command3_Click()
    ' Load the captured image into a PictureBox and print it
    Picture1.Picture = Clipboard.GetData()
    Printer.PaintPicture Picture1.Picture,  0 ,  0 
    Printer.EndDoc
End Sub

Private Sub Form_Load()
    Dim osinfo As OSVERSIONINFO
    Dim retvalue As Integer
   
    osinfo.dwOSVersionInfoSize =  148 
    osinfo.szCSDVersion = Space$( 128 )
    retvalue = GetVersionExA(osinfo)
    If osinfo.dwMajorVersion >  4  Then blnAboveVer4 = True

    'Picture1.Visible = False
    Command1.Caption = "Print Screen"
    Command2.Caption = "Alt+Print Screen"
    Command3.Caption = "Print Image"
End Sub