俺又试了几次,可还是不行:
Private Sub UserForm_Click()
Dim MyCommandButton As MSForms.CommandButton
Dim MyControlerName As String
Set MyCommandButton = UserForm1.Controls.Add("Forms.CommandButton.1", CommandButton3, Visible)
MyCommandButton.Caption = "CommandButton3"
MyCommandButton.Height = 24
MyCommandButton.Width = 72
MyCommandButton.Left = 12
MyCommandButton.Top = 66
MyControlerName = MyCommandButton.Name
'"MyCommandButton" 控件的 "Name" 居然是空!
MsgBox prompt:=MyControlerName
'运行到此即出错、提示:
'运行时错误 '-2147352571 (80020005)': 类型不匹配。
'Me.Controls.Remove MyCommandButton
'改成以下这样仍然出错、提示:
'运行时错误 '444': 无法删除控件s。不能在此上下文中使用此命令。
Me.Controls.Remove CommandButton3
End Sub[em03][em03][em03][em03][em03][em03]