[علي نوري]

وعليكم السلام اخي


 

كود :

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        On Error Resume Next
        Select Case Val(TextBox1.Text)
            Case 8 To 18
                ' هنا خلي كود الانتقال للفورم 8 -18
                MsgBox("انتقل لفورم العمر 8 - 18")
            Case 19 To 70
                ' هنا خلي كود الانتقال للفورم 19 -70
                MsgBox("انتقل لفورم 19 - 70")
            Case Else
                ' في حالة القيمة المدخلة اقل من 8 او اكثر من 70
                MsgBox("يجب ان يكون العمر محصور بين 8 - 70")
        End Select
    End Sub