Tutte le volte che premiamo un tasto solleviamo l'evento KeyPress() anche con Tab (Ctrl o Alt ecc.) quindi devi tenerne conto.
Non so come hai organizzato il tutto forse potresti usare dei booleani a livello di classe per evitare il ripetersi del codice, però devi essere sicuro di poterli ripristinare.
Per esempio:
Private $bTextBox1 As Boolean
Public Sub TextBox1_KeyPress()
If $bTextBox1 Then Return
Print "TextBox1_KeyPress()"
$bTextBox1 = True
End
Public Sub TextBox1_LostFocus()
$bTextBox1 = False
End
La cosa migliore è evitare di far fare la stessa cosa a due eventi diversi o a un evento che si può ripetere accidentalmente.
:ciao: