وعليكم السلام اخي @ابو البشر
هل هذا ينفعك ؟ مع تغيير اسماء النماذج
Dim strForm As String
Dim frm As Form
Dim fc As Control
Dim SS As String
If Me.ComboName = "A" Then
strForm = "FormA"
ElseIF Me.ComboName = "B" Then
strForm = "FormB"
Else
strForm = "FormC"
End If
Set frm = strForm
For Each fc In frm.Controls
If fc.ControlType = 104 Then
Me.list_2.AddItem (fc.Caption)
End If
Next fc
Set frm = Nothing
Me.Requery