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

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

كود :

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       If Val(TextBox1.Text) > 12 Then
           TextBox1.Text = 12
       ElseIf Val(TextBox1.Text) < 1 Then
           TextBox1.Text = 1
       End If
   End Sub