ho risolto il prblema del controllo nell'inserimento dei numeri in questo modo


Private Sub Text1_LostFocus(Index As Integer)
Text1(Index).BackColor = vbWhite
Dim i As Integer


For i = 0 To 54
If Val(Text1(i).Text) < 0 Or Val(Text1(i).Text) > 90 Then
MsgBox "I numeri devono essere compresi tra 1 e 90", 16, "Errore"

Text1(i).Text = ""

Text1(i).SetFocus
Exit Sub
End If
Next i


End Sub

adesso sto cercando di risolvere il modo di passare automaticamente
alla texbox successiva senza premere il tasto tab
qualcuno mi aiuta?

Alarico_Re

Disse la goccia d'acqua alla roccia dammi il tempo e ti bucherò.