[سامي محمد]

من الكود المكتوب في المشاركة الاولى انت ترد الوصول على قيمة الكمبوبكس لربطة بشرط ونحو ذلك 
 ان كان هذا هو قصدك فلا تحتتاج سوى فانكشن يرجعلك بقيمة الكمبوبكس .... ولفعل ذلك

اكتب هذا الفانكشن في الموديول

كود :

Public Function F_GetText() As String
        Return Form1.ComboBox1.Text
    End Function

وبعد ذلك استدعيه من اي مكان في البرنامج بهذا الطريقة

كود :

Dim F As String = F_GetText()

سيتم تخزين قيمة الكمبوبكس في المتغير Fبهذه الطريقة