module1.bas

来自「比较简单而适用的多线程例子」· BAS 代码 · 共 34 行

Attribute VB_Name = "Module1"
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Sub FlickerTop()

Static BgColor As Long
Dim lTick As Long, lCounter As Long

On Error Resume Next
For lCounter = 0 To 5999
    If BgColor <> &HFF& Then BgColor = &HFF& Else BgColor = &HFF00&
    Form1.Picture1.BackColor = BgColor
    lTick = GetTickCount
    While GetTickCount - lTick < 1250
    Wend
Next

End Sub
Public Sub FlickerBottom()

Static BgColor As Long
Dim lTick As Long, lCounter As Long

On Error Resume Next
For lCounter = 0 To 5999
    If BgColor <> &HFFFF& Then BgColor = &HFFFF& Else BgColor = &HFF0000
    Form1.Picture2.BackColor = BgColor
    lTick = GetTickCount
    While GetTickCount - lTick < 500
    Wend
Next

End Sub