VB 子窗体在父窗体内居中(位置)

1. 封装函数

'当前窗体在 父级窗体中的位置 居中
Public Function MiddleInForm(frm1 As Form, frm2 As Form)
1   On Error GoTo Err_MiddleInForm
    '-------------------------------------
2   frm1.Left = (frm2.ScaleWidth - frm1.Width) / 2
3   frm1.Top = (frm2.ScaleHeight - frm1.Height) / 2
    '-------------------------------------
4   On Error GoTo 0
5   Exit Function
Err_MiddleInForm:
6   If MsgBox("【错误代码】:" & Err.Number & vbCrLf & "【错误描述】：" & Err.Description & vbCrLf & "【出错位置】: [FunAll]→ [MiddleInForm]的 " & Erl & "行" & vbCrLf & "是否继续？", vbYesNo + vbQuestion + vbDefaultButton1, "错误处理") = vbYes Then Resume Next
End Function

2. 调用函数

Call MiddleInForm(Me, MDIMain)    '窗体居中