Option Explicit'添加事件Private WithEvents cmd As CommandButtonPrivate Sub Form_Load()Set cmd = Controls.Add("VB.CommandButton", "cmd")cmd.Visible = TrueEnd Sub