[نبيل كونكت]

كود :

    If (Char.IsControl(e.KeyChar) = False) And (Char.IsDigit(e.KeyChar) = False) Then
           e.Handled = True
       End If

الكود ده بيمنع كتابة الكلمات والشيفت وازرار التحكم 
ممكن طلب كود انه يسمح بكتابة الدوت وتكون واحد بس . كعلامه عشريه للارقام