[ahmed salam]

السلام عليكم و رحمة الله و بركاته
اخي الكريم

كود :

Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Dim i As Integer = Val(TextBox1.Text)
        If i > 101 Or i < 0 Then
            MsgBox("الرقم غير موجود")
        Else
            Label1.Text = i
        End If
    End Sub

هذا مثال
و يمكن التطبيق بالتوالي علي الباقي


لا تنسوني من صالح دعائكم
السلام عليكم ورحمة الله و بركاته