[سعود]

......  اللذي يحضرني الان اولا نكتب دالة كاجراء مستقل :

PHP كود :

Private Function commacount(txt As String) As Integer
        Dim count As Integer = 0
        For Each h As String In txt
            If h = "." Then
                count += 1
            End If
        Next
        Return count
    End Function 


 
و ضمن حدث TextBox1_KeyPress لمربع النص نكتب:

PHP كود :

 If (e.KeyChar = "." And commacount(sender.text) > 0) Then
            e.Handled = True
        End If 


و اكيد توجد اكواد افضل ننتظره من الاخوة الفضلاء.