Selezionare i tipi di carattere in textbox

[Pieruccio]

facciamolo in un modo piu elegante:

Private Sub text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 47 To 59
'caratteri numerici OK
Case 44, 46
'carattere virgola e punto decimale OK
Case 8
'carattere backspace OK
Case Else
MsgBox "Puoi inserire solo valori numerici"
KeyAscii = 0
End Select
End Sub