VBA代码求助
我是个菜鸟，这些代码是什么意思啊？
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 求助VB VBA rgb
[解决办法]
貌似是在面板上添加新的控件，然後對其進行屬性設置，字體，可調大小，顏色，座標，上下間距等等。
具體的對應什麽意思，你去查查對應的中文屬性吧
[解决办法]
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控件不可见
