*sleep期间执行其他代码*解决办法

*****sleep期间执行其他代码***********急！！！
在timer中执行sleep,但在sleep的时间内需要执行其他代码，请问用怎么处理，还是有其他办法？？   具体如下
public   sub   timer1_Click(……)
begin
……………………
  sleep   3000;//在sleep期间调用   Fuction1()
end
public   sub   Fuction1(…………)
begin
………………
end


[解决办法]
用其他的延时函数代替sleep
[解决办法]
dim AAA as boolean,BBB as boolean
public sub timer1_Click(……)
if BBB then exit sub
if AAA then goto BLine
……………………
BBB=1:AAA=0:Fuction1(...):exit sub ';//在sleep期间调用 Fuction1()
BLine: ……………………
BBB=0
End Sub
public sub Fuction1(…………)
………………
AAA=1
BBB=0
End Sub
[解决办法]
使用WaitForSingleObject设置信号量，

[解决办法]
Public Sub delay(a!)
Dim t1&
For t1 = 1 To 100 * a
Sleep (9)
DoEvents
Next t1
End Sub