سوال درباره کنترل فریم

سلام
چیکار کنم آپشن های دو تا فریم با هم توی یه برچسب نشون داده بشه
مثلا دو تا کنترل آپشن که تو دو تا فریم هست چطوری با انتخاب آپشن های دو تا فریم به طور همزمان اونو تو برچسب نشون بده اینو من نوشتم اما نمیدونم چه کدی بنویسم که همزمان تو لیبل آپشنهای دو تا فریم رو نشون بده




Private Sub Option1_Click()
If Option1.Value = True Then
Label1.Caption = Option1.Caption
End If
End Sub

Private Sub Option2_Click()
If Option2.Value = True Then
Label1.Caption = Option2.Caption
End If
End Sub

Private Sub Option3_Click()
If Option3.Value = True Then
Label1.Caption = Option3.Caption
End If
End Sub

Private Sub Option4_Click()
If Option4.Value = True Then
Label1.Caption = Option4.Caption
End If
End Sub

منظورتون رو درست متوجه نشدم... ولي...

ببينيد اين مشكلتون رو حل مي كنه...؟! :

کد:

---

Private Sub Option1_Click()
If Option1.Value And Option3.Value Then
Label1.Caption = Option1.Caption & " - " & Option3.Caption
ElseIf Option1.Value And Option4.Value Then
Label1.Caption = Option1.Caption & " - " & Option4.Caption
Else
Label1.Caption = Option1.Caption
End If
End Sub

Private Sub Option2_Click()
If Option2.Value And Option3.Value Then
Label1.Caption = Option2.Caption & " - " & Option3.Caption
ElseIf Option2.Value And Option4.Value Then
Label1.Caption = Option2.Caption & " - " & Option4.Caption
Else
Label1.Caption = Option2.Caption
End If
End Sub

Private Sub Option3_Click()
If Option3.Value And Option1.Value Then
Label1.Caption = Option1.Caption & " - " & Option3.Caption
ElseIf Option3.Value And Option2.Value Then
Label1.Caption = Option2.Caption & " - " & Option3.Caption
Else
Label1.Caption = Option3.Caption
End If
End Sub

Private Sub Option4_Click()
If Option4.Value And Option1.Value Then
Label1.Caption = Option1.Caption & " - " & Option4.Caption
ElseIf Option4.Value And Option2.Value Then
Label1.Caption = Option2.Caption & " - " & Option4.Caption
Else
Label1.Caption = Option4.Caption
End If
End Sub

---

موفق باشيد...!