|
こんにちは。
よく検証していませんが・・
------------------------------------------------------------------
Option Explicit
Dim I As Long
Private Sub CommandButton1_Click()
With Me.Frame1.Controls.Add("Forms.ComboBox.1")
.Move 0, 9 * I, 120, 18
End With
With Me.Frame1.Controls.Add("Forms.ComboBox.1")
.Move 120, 9 * I, 120, 18
End With
I = I + 2
End Sub
Private Sub CommandButton2_Click()
If I > 1 Then
With Me.Frame1.Controls
.Remove .Item(.Count - 1).Name
.Remove .Item(.Count - 1).Name
I = I - 2
End With
End If
End Sub
※返信はこの続きにお願いします。
|
|