窗体问题（运行时使其居中）
如题：
就是在vb运行时，在屏幕的中心。
不管分辨率是800※600还是1024乘768 都在屏幕的中心
代码怎么写呀，，谢谢！！
你在主模块你写个函数，然后每个窗体的LOAD中调用！
Public Sub CenterForm(frm As Form) If frm.Height <= Screen.Height * 0.75 Then frm.Top = Screen.Height \ 2 - frm.Height \ 2 Else frm.Top = Screen.Height \ 2 - frm.Height \ 2 End If frm.Left = Screen.Width \ 2 - frm.Width \ 2 End Sub
Private Sub Form_Load() CenterForm Me End Sub
