Inserimento di un texbox che accetti solo numeri : non mi funziona però

[Pieruccio]

sostituisci la sub con questa:
Private Sub ControllaTasto(ByVal o As [Object], ByVal e As KeyPressEventArgs)
'controlla se il carattere digitato e' un carattere numerico
'accetta anche "." e ","
If e.KeyChar.IsNumber(e.KeyChar) _
Or e.KeyChar = Microsoft.VisualBasic.ChrW(46) _
Or e.KeyChar = Microsoft.VisualBasic.ChrW(44) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub

:mavieni: