frmSplash(frmSplash.frm)窗体

frmSplash(frmSplash.frm)窗体：一个Timer窗体

Private Sub Form_Click()

CreateGame 1     'Initialize game

frmMain.Show    'Show window

Unload Me

End Sub

Private Sub tmrEffect_Timer()

Dim nX As Long, nY As Long, Cnt As Long

Dim Delay As Long, T1 As Long, T2 As Long

Dim Start As Byte, nSteps As Byte

Dim Ret As POINTAPI

Delay = 0: nSteps = 3

For Start = 0 To nSteps - 1

    T1 = GetTickCount

    T2 = GetTickCount

    For Cnt = Start To frmSplash.ScaleWidth Step nSteps

        While T2 - T1 < Delay

            T2 = GetTickCount

        Wend

        nX = Cnt

        nY = Me.ScaleWidth

        frmSplash.Line (Cnt, 0)-(Cnt, Me.ScaleHeight), 0

        frmSplash.Line (0, Cnt)-(Me.ScaleWidth, Cnt), 0

        T1 = GetTickCount

    Next Cnt

Next Start

CreateGame 1     'Initialize game

frmMain.Show    'Show window

Unload Me

End Sub