print screen

[nir_h20]

hello
how can I load the picture that is seen on the screen
to a picture.
i can't find the API that preforms that.
thnx

[Chris]

nir_h20, try the following sample code.

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

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 KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12

Private Sub Command1_Click()
    'Capture the Entire Screen
    keybd_event VK_SNAPSHOT, 1, 0, 0
    
    'Save the capture image
    Save2File
End Sub

Private Sub Command2_Click()
    'Capture the Active Window
    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

    'Save the capture image
    Save2File
End Sub

Private Sub Save2File()
    'Delay 3 seconds
    Sleep 3000
    
    'Load Image into the PictureBox
    Picture1.Picture = Clipboard.GetData()

    'Delay 3 second to complete load the image into the PictureBox Control
    Sleep 3000
    
    'Save new image file
    SavePicture Picture1, App.Path & "\MyPics.bmp"
End Sub

Cheers!