vba 向窗体中的框架里添加控件，为何只能向第一个框架添加？

pfbobo

窗体中有多个框架时，要动态添加控件时，只能添加在第一个框架中，添加在其他框架里的控件显示不出来。
大家帮我看看怎么回事？


无法添加附件，把窗体初始化过程，写出来：
Private Sub UserForm_Initialize()

For i = 0 To 8

m = (i + 1) \ 4
n = (i + 1) Mod 4
If n = 0 Then
m = m - 1
n = 4
End If

Set ctl = Frame1.Controls.Add("Forms.CheckBox.1")
With ctl
.Caption = "类别" & i
.Left = Me.Frame1.Left + 2 + (n - 1) * 100
.Top = Me.Frame1.Top + 5 + m * 25
.Height = 20
.Width = 50
.Visible = True
End With


Next i

'如果把Frame1换成Frame2则显示不出来
For i = 0 To 8

m = (i + 1) \ 4
n = (i + 1) Mod 4
If n = 0 Then
m = m - 1
n = 4
End If

Set ctl = Frame2.Controls.Add("Forms.CheckBox.1")
With ctl
.Caption = "类别" & i
.Left = Me.Frame2.Left + 2 + (n - 1) * 100
.Top = Me.Frame2.Top + 5 + m * 25
.Height = 20
.Width = 50
.Visible = True
End With


Next i

End Sub


窗体里面放两个框架（frame1 和frame2）

pfbobo

把附件传上来，大家看一下，谢谢。
已经试了半天都没成功

pfbobo

不好意思是我自己弄错了
.Top = Me.Frame2.Top + 5 + m * 25
改成
.Top =  5 + m * 25
就可以看到了
在frame中添加的控件其top值默认就是frame的top值，不能再加一个 Me.Frame2.Top