C'è il comando che si chiama onKeyPress
E così quel campo diventa sicuramente numericocodice:Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Then Else KeyAscii = 0 End If End Sub
C'è il comando che si chiama onKeyPress
E così quel campo diventa sicuramente numericocodice:Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii >= 48 And KeyAscii <= 57 Then Else KeyAscii = 0 End If End Sub
Allejo