Private WithEvents aa As CommandButton
Private WithEvents bb As TextBox
Private Sub Command1_Click()
If aa Is Nothing Then
Set aa = Controls.Add("vb.commandbutton", "cmdnew", Me)
aa.Move Command1.Left + Command1.Width + 240, Command1.Top
aa.Caption = "新增的控件"
aa.Visible = True
End If
End SubPrivate Sub Command2_Click()
If aa Is Nothing Then
Else
Controls.Remove aa
Set aa = Nothing
End If
End Sub
Private Sub aa_Click()
MsgBox "新增的控件,这样使用"
End Sub
Private Sub Command3_Click()
If bb Is Nothing Then
Set bb = Controls.Add("vb.TextBox", "cmdnew2", Me)
bb.Move Command1.Left + Command1.Width + 240, Command1.Top
bb.Text = "新增的控件"
bb.Visible = True
End If
End SubPrivate Sub Command4_Click()
If bb Is Nothing Then
Else
Controls.Remove bb
Set bb = Nothing
End If
End Sub
Private Sub bb_Click()
MsgBox "新增的控件,这样使用"
End Sub