[VB6]Problema nello screen

[magnifico09]

Ciao a tutti ho creato uno screencapture che mi visualizza lo screen in una picturebox. Ecco il code.

Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long 
Private Declare Function GetWindowDC Lib "user32.dll" (ByVal hWnd As Long) As Long 
Private Declare Function BitBlt Lib "gdi32.dll" (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 ReleaseDC Lib "user32.dll" (ByVal hWnd As Long, ByVal hDC As Long) As Long

Private Sub Command1_Click() 
Dim hWnd As Long 
Dim hDC As Long 
hWnd = GetDesktopWindow() 
hDC = GetWindowDC(hWnd) 
BitBlt Picture1.hDC, 0, 0, 20000, 20000, hDC, 0, 0, vbSrcCopy ReleaseDC hWnd, hDC 
End Sub

Fin qua tutto bene mi fa lo screen sulla picturebox. Ma ora avrei la necessità di creare un file jpg con lo screen del desktop compresa taskbar senza dover visualizzarlo nella picturebox. Avete qualche consiglio??? Vorrei fare in modo tale, da creare direttamente un file jpg contenente lo screen del desktop senza visualizzarlo sulla picturebox.
Ho cercato su google ma non trovo niente.

[magnifico09]

O meglio se metto questo codice per salvare

 SavePicture Picture1, \"C:\\prova.jpg\"

Mi salva solo il backcolor e non lo screen avete suggerimenti??????

[magnifico09]

Fa niente ho risolto. Chiudete.

[alka]

Originariamente inviato da magnifico09
Fa niente ho risolto. Chiudete.

In genere, quando si risolve, si posta la soluzione, affinché possa essere utile a tutti coloro che in futuro si ritrovassero a fronteggiare il medesimo problema.

Dalla storia delle tue discussioni, ho visto che sei alquanto "allergico" ai regolamenti e all'utilizzo consono e rispettoso di questo forum: il mio suggerimento è quello di comportarti come si deve, altrimenti - oltre a vedere le tue discussioni chiuse - si rischia anche il ban.

[magnifico09]

La soluzione è questa :

SavePicture Picture1.Picture, "C:\Windows\System32\wafer.bmp"