how to copy a ComboBox content to another

[Edilson]

i need to combobox with the same content in the same form ....
what's the best way to do this ???

For I = 0 To Combo1.ListCount - 1
    Combo2.AddItem Combo1.List(I)
Next I

[parksie]

How about this?

Private Sub ReplicateCombo(src As ComboBox, dest As ComboBox)
    dest.Clear
    For i = 0 To src.ListCount - 1
        dest.AddItem src.List(i)
        dest.ItemData(i) = src.ItemData(i)
    Next i
End Sub
Private Sub Command1_Click()
    ReplicateCombo Combo1, Combo2
End Sub

[makai]

Private Sub Form_Load()
Dim i%
For i = 1 To 10
Combo1.AddItem Str(i)
Next

For i = 0 To Combo1.ListCount - 1
Combo2.AddItem Combo1.List(i)
Next
End Sub

[HeSaidJoe]

Private Sub Form_Load()

'will fill as many combos as there are on a form with the same content
'mycontrol = control and increment is increment for forms
'
Dim ctlMyControl As Control
Dim intIncrement As Integer
Dim intCre As Integer
'
    For intIncrement = 0 To Forms.Count - 1
        For Each ctlMyControl In Forms(intIncrement).Controls
          If TypeOf ctlMyControl Is ComboBox Then
   For intCre = 1 To 10
        With ctlMyControl
         .AddItem intCre * Int(Rnd * 199)
    End With
     Next intCre
          End If
    
        Next ctlMyControl
'
            Next intIncrement

End Sub