Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Form_Load
For i= 0 To 10
SendKeys (i)
Sleep 10000
Next
End
End Sub
No se si funcione, no tengo mucha experiencia con esta api, pero es lo q se me ha venido a la mente...
salu2 y me avisas si funciona