VBA代码求助

Question

我是个菜鸟，这些代码是什么意思啊？
Set objResizer = Me.Controls.Add("Forms.label.1", MResizer, True)
    With objResizer
        With .Font
            .Name = "Marlett"
            .Charset = 2
            .Size = 16
            .Bold = True
        End With
        .BackStyle = fmBackStyleTransparent
        .AutoSize = True
        .BorderStyle = fmBorderStyleNone
        .Caption = "o"
        .MousePointer = fmMousePointerSizeNWSE
        .ForeColor = RGB(100, 100, 100)
        .ZOrder
        .Top = Me.InsideHeight - .height
        .left = Me.InsideWidth - .width
    End With
    FormX = Me.width
    FormY = Me.height
    Frame1.Visible = False求助VBVBArgb

Answer 1

Set objResizer = Me.Controls.Add("Forms.label.1", MResizer, True) //创建一个名为objResizer的Label控件
    With objResizer
        With .Font
            .Name = "Marlett" //使用Marlett字体
            .Charset = 2 //使用2号字符集
            .Size = 16 //设置字号为16
            .Bold = True //设置为粗体
        End With
        .BackStyle = fmBackStyleTransparent //设置控件背景为透明
        .AutoSize = True //启用控件自动按内容设置大小
        .BorderStyle = fmBorderStyleNone //设置控件为无边框模式
        .Caption = "o" //控件显示内容为“o”
        .MousePointer = fmMousePointerSizeNWSE //设置当鼠标进入控件区域后显示为fmMousePointerSizeNWSE样式
        .ForeColor = RGB(100, 100, 100) //设置字体颜色
        .ZOrder //设置控件在容器的最上层
        .Top = Me.InsideHeight - .height //设置控件的上边距
        .left = Me.InsideWidth - .width //设置控件的左边距
    End With
    FormX = Me.width 
    FormY = Me.height
    Frame1.Visible = False //设置Frame1控件不可见

Answer 2

非常感谢，前面有定义
Private WithEvents objResizer As MSForms.Label
这里是动态添加一个控件吗？另外MSForms是不是VBA中的东东，和VB中的Forms有什么区别吗，MSForms.Controls.Add("Forms.label.1", MResizer, True)中的"Forms.Label.1"参数就是这样定义的吗？那添加命令按钮是不是"Forms.Command.1"这个参数的定义我查了好多地方都查不到

Answer 3

Private WithEvents objResizer As MSForms.Label
这里是声明一个可接收事件的label控件，MSForms是VBA的控件库，与Forms类似关于"Forms.Command.1"，我也不太清楚，不过既然是VBA，你可以在word采用录制宏再看其代码的方法来了解