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

السلام عليكم ورحمة الله وبركاته
بارك الله بك اخي الكريم Ronald على مساعدتك الثمينة
اخي عاطف 
الكود التالي سيحقق ماتريد اضافة الى انه سيمنع الحروف والكونترول والرموز وايضا سيمنع اضافة الفاصلة مرة اخرى اذ من غير المعقول اضافة فاصلة على فاصلة وكذلك سيضع المؤشر في الاخير ختى يمكنك الاستمرار في الادخال بدون اعادة تموضع المؤشر بالماوس او بالاسهم

كود :

 Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
       If TextBox1.TextLength = 1 And TextBox1.Text = "." Then ' اذا كان مربع النص طوله 1 والمكتوب فيه هو السيبراتور
           TextBox1.Text = "0."
           TextBox1.Select(TextBox1.TextLength, 0) ' وضع المؤشر في اخر النص

       End If
       ' منع كتابة الاحرف او الكونترول او الرموز مع التحقق من وحود الفاصلة العشرية حتى لاتتكرر
       If Not (Char.IsControl(e.KeyChar) Or Char.IsNumber(e.KeyChar) Or e.KeyChar = "." And Not sender.Text.Contains(".")) Then
           e.Handled = True
       End If
   End Sub