xt.bas

VB6.0应用例题

Attribute VB_Name = "Module1"
Option Explicit
Global ti               As Integer
Global XzTi             As Integer
Global StNum            As Integer
Global SyTm             As Integer
Global KsDa(79)         As String
Global BzDa(79)         As String
Global TiShu(5)         As Integer
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