ok, ora ho fatto così
Do
For e = 48 To 57
If GetAsyncKeyState(e) <> 0 Then
If m < Len(pwctrl) Then
If Chr(e) = pos(m) Then
m += 1
Else
m = 0
End If
If m = Len(pwctrl) Then
MessageBox.Show("Password corretta")
End If
End If
End If
Threading.Thread.Sleep(100)
Next e
Loop
e già funziona meglio
ho aggiunto If m < Len(pwctrl) altrimenti m andava oltre i limiti di pos
e if = len(pwctrl) anizkè pos.lenght xkè dava errore
ora se si inserisce la pw giusta viene visualizzata la messagebox
ma nn ho capito xkè se digito la pw sul tastierino numerico nn funge O.o i codici ascii dei numeri del tastierino sn diversi da quelli ke stanno sopra le lettere???? O______O