VB6 controle a distance

Private 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
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long

Private Function GetImage(OutputBitmap)
Dim wHand As Long
Dim wDC As Long
Dim nHeight As Long, nWidth As Long
wHand = GetDesktopWindow
wDC = GetDC(wHand)
nHeight = Screen.Height / Screen.TwipsPerPixelY
nWidth = Screen.Width / Screen.TwipsPerPixelX
BitBlt Me.hDC, 0, 0, nWidth, nHeight, wDC, 0, 0, vbSrcCopy
SavePicture Me.Image, OutputBitmap
Me.Cls
End Function

Private Sub Form_Load()
GetImage App.Path + "\capture.bmp"
End Sub