come non detto ci sono riuscito così

grazie comunque paolo

Private Sub ControllaTasto(ByVal o As [Object], ByVal e As KeyPressEventArgs)
If e.KeyChar = "." Then Exit Sub
If e.KeyChar.IsNumber(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Sub