Logiciel de capture d'écran.

'************************************************************ 
' Déclarations des API : 
' Pour copier l'image de votre écran dans une PictureBox 
Public Declare Function GetWindowDC Lib "user32" (ByVal hWnd As Long) As Long 
Public Declare Function GetDesktopWindow Lib "user32" () As Long 
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long 
'************************************************************ 
' Déclarations des API : 
' Détecte la position du curseur 
Public Declare Function GetCursorPos Lib "user32" (lpPoint As PosCurs) As Long 
' Modifie la position du curseur 
Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long 
' Redessine le curseur 
Public Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long 
' Lit le modèle de curseur 
Public Declare Function GetCursor Lib "user32" () As Long 
' 
' Déclaration du type PosCurs necessaire pour l'API 
Public Type PosCurs 
    x As Long 
    y As Long 
End Type 
Public PositSourX As Integer 
Public PositSourY As Integer 
Public genrecurs As Long 
'************************************************************

Sub Capture() 
Dim varRet As Integer 

Dim posit As PosCurs 
Dim ret As Long 
    MemL = Me.Left 
    MemT = Me.Top 
     
    ret = GetCursorPos(posit) 
    PositSourX = posit.x 
    PositSourY = posit.y 
    Me.Move 0, 0, Screen.Width, Screen.Height 
    'Picture1.Visible = True 
    varRet = BitBlt(Picture1.hdc, 0, 0, Picture1.Width, Picture1.Height, _ 
              GetWindowDC(GetDesktopWindow), 400, 200, vbSrcCopy) 
    Picture1.Visible = True