Italian Text perde il focus

[maxware]

Ciao raga
sto facendo una nuova funzione per alfadesk e mi scontro con questo problema
Sto realizzando una funzione contenitore dove l'utente , utilizzando un lettore usb , spapa dei codici barcode
Il form e' semplice , una text ed una list
ora quando entro la text ha il focus , sparo il barcode , nella EnterPressed catturo il valore , lo cerco nel database , e lo sparo della listview
bene , dopo l'aggiunta alla listview l'oggetto text mi perde il focus
mi funziona solo se ci tappo sopra con il ditino e poi proseguo con la seconda lettura e via cosi
idee???

 

[maxware]

Risolto............
...
TxtLettore.Text=""
CallSubDelayed2(Me, "SetFocus", TxtLettore)
End If
End If
End Sub
Sub SetFocus(edt As EditText)
edt.RequestFocus
End Sub