How do I print screen from a VB6 application?

[timbo]

Hi

Any help would be greatly appreciated.

Thanks.

You mean, take a picture of the screen?

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
  ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

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

      'To get the Active Window
    Call keybd_event(vbKeySnapshot, 0, 0, 0)