[سامي محمد]

ان كان المطلوب ان يكون في حدث الكتابة فهذا الكود ايسر

كود :

    Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = "." Then e.Handled = TextBox1.Text.Contains(".")
    End Sub