向Excel文档中嵌入VBA控件和UserForm并显示(4)

                    new Forms.CommandButtonEvents_ClickEventHandler 
                        (objCommandButton_Click); 
                VBE.VBProject objVBProject = objApplication.VBE.ActiveVBProject; 
                VBE.VBComponent objVBComponet = objVBProject.VBComponents 
                    .Item("Sheet1"); 
                strModuleString = "Private Sub btn1_Click()\nUserForm1.Show\n" 
                    + "End Sub"; 
                objVBComponet.CodeModule.AddFromString(strModuleString); 
                VBE.VBComponent objUserFormComponent =  
                    objVBProject.VBComponents.Add 
                    (VBE.vbext_ComponentType.vbext_ct_MSForm); 
                var objFormButton = objUserFormComponent.Designer.Controls. 
                    Add("Forms.CommandButton.1"); 
                objFormButton.Caption = "Try to Click Me"; 
                objFormButton.Name = "frmbtn1"; 
                strModuleString = "Private Sub frmbtn1_Click()\nMsgbox \"Hello " 
                    +"World!\"\nfrmbtn1.Caption=\"This is a test!\"\nEnd Sub"; 
                objUserFormComponent.CodeModule.AddFromString(strModuleString); 
            } 
        }