[ابو ليلى]

السلام عليكم و رحمة الله و بركاته
جرب بهذا الشكل:

PHP كود :

   Private Sub TxtBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TxtBox1.KeyPress

        If Not Char.IsControl(e.KeyChar) AndAlso Not Char.IsDigit(e.KeyChar) AndAlso (e.KeyChar <> "."c) Then
            e.Handled = True
        End If

        If (e.KeyChar = "."c) AndAlso ((TryCast(sender, TextBox)).Text.IndexOf("."c) > -1) Then
            e.Handled = True
        End If
    End Sub