raga devo creare un programma che ogni tot tempo fa una "foto" dello schermo e la salva in un gile jpeg o bmp

per ora ho fatto così

in un modulo:

Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_EXTENDEDKEY = &H1 'pressione del tasto (keyDown)
Const KEYEVENTF_KEYUP = &H2 'rilascio del tasto premuto (keyUp)

nel form:

private sub timer1_timer()
keybd_event vbKeySnapshot, 0, KEYEVENTF_EXTENDEDKEY, 0
keybd_event vbKeySnapshot, 0, KEYEVENTF_KEYUP, 0
end sub

a questo punto l'immagine e negli appunti il problema e che nn so come salvarla in un file jpeg o bmp
idee????