Private Sub CommandButton1_Click()
Dim cCont As Control
Dim s
s = 0
For Each cCont In Me.Controls
If TypeName(cCont) = "ComboBox" Then
s = s + 1
End If
Next cCont
If s >= 1 Then
Dim i
i = s + 1
If Me.Controls("Combobox" & i - 1).Value <> "" Then
Set cCont = Controls.Add("Forms.Combobox.1")
With cCont
.Name = "Combobox" & i
.Height = 20
.Width = 100
.Left = 10
.Top = 20 * i - 10
End With
End If
Else
Set cCont = Me.Controls.Add _
("Forms.Combobox.1")
With cCont
.Name = "Combobox1"
.Height = 20
.Width = 100
.Left = 10
.Top = 10
End With
End If
End Sub
کامنت