以编程方式向UserForm添加框架，在设计模式下而不是在运行时

Sub AddFrameToUserForm()
    Dim uf As UserForm
    Dim frm As Frame
    
    ' 创建一个新的UserForm实例
    Set uf = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm).Designer
    
    ' 设置UserForm的基本属性
    uf.Name = "MyUserForm"
    uf.Caption = "示例用户表单"
    
    ' 创建一个新的框架实例
    Set frm = uf.Controls.Add("VB.Frame", "MyFrame", uf)
    
    ' 设置框架的基本属性
    With frm
        .Left = 10
        .Top = 10
        .Width = 200
        .Height = 100
        .Caption = "数据输入区域"
    End With
    
    ' 添加一些控件到框架中（例如文本框和按钮）
    Dim txt As MSForms.TextBox
    Set txt = uf.Controls.Add("VB.TextBox", "MyTextBox", frm)
    txt.Left = 10
    txt.Top = 30
    txt.Width = 180
    
    Dim btn As MSForms.CommandButton
    Set btn = uf.Controls.Add("VB.CommandButton", "MyButton", frm)
    btn.Left = 10
    btn.Top = 70
    btn.Width = 180
    btn.Caption = "提交"
End Sub