[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
مشكور اخي ابو ليلى سباق دائما ماشاء الله
اخي سعود الغالي والطلب رخيص تفضل هذا الكود

كود :

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress

       If sender.SelectionLength = sender.Text.Length Then sender.Clear()
       If Not (Char.IsControl(e.KeyChar) Or Char.IsNumber(e.KeyChar) Or e.KeyChar = "." And Not sender.Text.Contains(".")) Then e.Handled = True
       If sender.Text.Length = 0 And e.KeyChar = "." Then sender.Text = "0." : sender.SelectionStart = sender.Text.Length : e.Handled = True


   End Sub