动态添加对话框
Dim WithEventsdlg As CommonDialog
Private Sub Command1_Click()
Set dlg = Controls.Add(“MSComDlg.CommonDialog”, “cmd1”)
dlg.ShowOpen
End Sub
动态添加按钮
Dim WithEvents b AsCommandButton
Private Sub b_Click()
MsgBox “cgl”
End Sub
Private Sub Form_Load()
Set b = Me.Controls.Add(“VB.CommandButton”, “b”)
b.Visible = True
b.Width = 800
b.Height = 1600
b.Left = X
b.Top = Y
b.Caption = “b2”
End Sub