xt.bas

好用的考试系统.rar可以实现简单的功能

Attribute VB_Name = "Module1"
'-----------------------------------------------------------------------
'   程序功能：将窗口居中安放
'-----------------------------------------------------------------------
Sub CenterOnSetupForm(child As Form)
    Dim dh  As Integer
    Dim dw  As Integer

    dh = Screen.Height - child.Height
    dw = Screen.Width - child.Width
    child.Top = (dh / 2)
    child.Left = dw / 2
End Sub