(vb6小技巧)利用vb的系统对象Screen使得窗体一运行就在屏幕的中央

VB 的系统对象 Screen 记录了当前显示模式的高度和宽度，我们可以利用这个系统对象Screen来设置窗体的位置。

Sub CenterForm(frm As Form)
    frm.Move (Screen.Width - frm.Width) \ 2, (Screen.Height - frm.Height) \ 2
End Sub