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

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

 ثانيا لاداعي ان نستبدل الفاصلة بالنقطة يكفي ان يكون الكود بهذا الشكل

كود :

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

       Select Case e.KeyChar
           Case ChrW(8)
           Case ChrW(46), ChrW(48) To ChrW(58)
           Case Else
               e.KeyChar = ChrW(0)
               Beep()
       End Select
   End Sub