[vb2008.net] thread stampa schermo

[killerbomb]

ho creato un applicazione che tramite un thread ogni 2 secondi fa uno stampa schermo. il problema è che la funzione che cattura lo schermo non vuole andare.
ecco il codice della funzione:

Public Const KEYEVENTF_KEYUP = &H2
 Public Sub ImmagineSchermo()
        Dim img
        keybd_event(Keys.PrintScreen, 0, 0, 0)
        keybd_event(Keys.PrintScreen, 0, KEYEVENTF_KEYUP, 0)
        'SendKeys.Send(Keys.PrintScreen)
        img = Clipboard.GetData("mio") '<--------img rimane "nothing"
end sub

come mai img rimane nothing?