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

            '当前的VBA工程 
            objVBAProject = objApplicatin.VBE.VBProjects(0) 
            '当前Worksheet的Componet 
            objVBComponent = objVBAProject.VBComponents(0) 
            '加入代码 
            objVBComponent.CodeModule.AddFromString(strModuleSnippet) 
            '加一个UserForm 
            objVBFormComponent = objVBAProject.VBComponents.Add( _ 
                VBE.vbext_ComponentType.vbext_ct_MSForm) 
            '加一个CommandButton 
            objObjectFormButton = objVBFormComponent.Designer.Controls.Add( _ 
                "Forms.CommandButton.1") 
            objObjectFormButton.Caption = "Form Button" 
            objObjectFormButton.Name = "frmbtn1" 
            '由于这个Button在UserForm内所以不能像上一个Button一样直接写事件控制 
            '这个Button的事件必须用VBA代码控制 
            strModuleSnippet = "private sub frmbtn1_Click()" & Chr(13) & _ 
                "Msgbox ""Hello World"" " & Chr(13) & _ 
                "frmbtn1.Caption = ""This is a Test""" & Chr(13) & "end sub" 
            objVBFormComponent.CodeModule.AddFromString(strModuleSnippet) 
        Catch ex As Exception 
            MsgBox(ex.Message & Chr(13) & ex.StackTrace) 
        End Try 
    End Sub 
 
    Private Sub objCommandButton_Click() Handles objCommandButton.Click