[VB_Coder]

السلام عليكم

- إستخدم هذا الكود :

كود :

Private Sub Command1_Click()

Dim Ctrl As Control
Dim I As Integer

For Each Ctrl In Controls

    If TypeOf Ctrl Is ComboBox And Ctrl.Name <> "Combo1" Then
       Ctrl.Clear
       For I = 0 To Combo1.ListCount - 1
           Ctrl.AddItem Combo1.List(I)
       Next
    End If
    
Next

End Sub

- تحياتي .