[3booody]

نعم اخي هي حسب الشرط طبعآ تستطيع تغيير الكود حسب ماتحب

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If TextBox1.Text = "1" Then
           check()
       ElseIf TextBox1.Text = "2" Then

           Select Case ComboBox1.Text
               Case "محمد", "يوسف"
                   'شرط اخر
           End Select
       ElseIf TextBox1.Text = "12" Then
           check()
       Else
           'اذا لم يتحقق أي شرط
       End If
   End Sub
   Sub check()
       Select Case ComboBox1.Text
           Case "احمد", "علي"
               MsgBox("نعم")
       End Select
   End Sub

او

كود :

Select Case TextBox1.Text
           Case "1"
               Select Case ComboBox1.Text
                   Case "احمد", "علي", "محمد"
                       'نفذ
                   Case "ايمن", "ابراهيم"
                       'نفذ
               End Select
           Case "2"
               '
       End Select

يمكن شويا عقدت عليك المسألة اعتذر لكن الهدف ايصال الفكرة لحضرتك