AYUDA CON SCREENSHOT

[satanico88]

Hola a todos
weno nesesito mejorar este codigo para tomar screenshots..:

On Error Resume Next
keybd_event vbKeySnapshot, 0, 0&, 0&
picNext.PaintPicture picLatest.Image, 0, 0, 2985, 2985
picLatest.PaintPicture Clipboard.GetData(vbCFBitmap), 0, 0, 2985, 2985
For I = 1 To Len(Now)
If IsNumeric(Mid(Now, I, 1)) Then
file = file & Mid(Now, I, 1)
End If
Next I
SavePicture Clipboard.GetData(vbCFBitmap), "C:/" & file & ".jpg"


weno.. el problema es q la Screenshot la toma bien.. la guarda en C .. y con extensión JPG.. pero la calidad de la foto sigue siendo BMP.. y pesan 2.5mb cada screenshot..

nesesito q alguien edite el code y lo haga para q sake en JPG
desde ya muchas gracias chau !

[satanico88]

me olvidaba de poner el modulo 

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