用户窗体全屏，窗体内控件居中处理，但移动后FRAME控件内的内容看不到了

ncow

如标题所说，目的的是用户窗体打开后自动全屏，然后把窗体内的控件都居中处理，
写的代码如下，但运行后其中FRAME控件内的内容（即上图中的文本框，文本框是放在frame控件员工编号和姓名下的）无法显示，
请问要如何修改。

Dim ctl As Control
Private Sub UserForm_Initialize()
Dim bh, bw, ah, aw
bh = Me.Height
bw = Me.Width
ah = Application.Height
aw = Application.Width
Me.Height = Application.Height '窗体高度等于Excel程序的高度
Me.Width = Application.Width '窗体宽度等于Excel程序的宽度
For Each ctl In Me.Controls
ctl.Left = ctl.Left + (aw - bw) / 2
ctl.Top = ctl.Top + (ah - bh) / 2
Next
End Sub


[url=]test.rar[/url]附件已上传，拜托各位大佬看看，应该怎么改。

ncow

大佬们，帮忙看看，能不能解决，或讲个思路。

半百

ncow

半百 发表于 2023-12-31 10:40

感谢感谢，原来frame里的东西自动随frame移动的。
但我的frame里除了textbox外还有其他类型的，如label等，那就可以判断在frame里的就变更位置，
判断这个控件是否在frame里，这个怎么写。

半百

ncow 发表于 2023-12-31 10:53
感谢感谢，原来frame里的东西自动随frame移动的。
但我的frame里除了textbox外还有其他类型的，如label ...