Option Explicit
 
Public iCount As Integer
 
Public Sub CreateNewCombo()
    iCount = iCount + 1
 
    Load Combo1(iCount)
    Combo1(iCount).Visible = True
End Sub

Private Sub Form_Load()
    Dim i As Integer
 
    For i = 1 To 10
        CreateNewCombo
        Combo1(iCount).Topt = Combo1(iCount - 1).Top + 300
    Next
 
End Sub