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

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

كود :

  Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       ' اذا كانت القيم صفر في البداية او الرقم اكبر من 12 سيتم تفريغ التكست
       If Val(TextBox1.Text) <= 0 Then
           TextBox1.Text = ""
       ElseIf Val(TextBox1.Text) > 12 Then
           TextBox1.Text = ""

       End If
   End Sub
   ' هذا الكود لمنع الحروف ومفاتيح الونترول
   Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress
       If Not Char.IsControl(e.KeyChar) AndAlso Not Char.IsLetter(e.KeyChar) Then
           e.Handled = False
       End If
   End Sub