一个timer控制闪灯的程序，怎么延时10s后

一个timer控制闪灯的程序，如何延时10s后？
T

Private Sub Timer2_Timer() '闪灯程序

Ima1.Item(Timepp - 1).Visible = Not Ima1.Item(Timepp - 1).Visible

在这里如何写一个延时函数，最好不是sleep，怕占线程

ima1.item(timepp-1).visible=true

end sub

[解决办法]
仍有错,修改如下:

VB code

Private Sub Form_Load()    Timer2.Interval = 1000End SubPrivate Sub Timer2_Timer() '闪灯程序    Static sum As Long    sum = sum + 1    ima1.Item(timepp - 1).Visible = Not ima1.Item(timepp - 1).Visible    '在这里如何写一个延时函数，最好不是sleep，怕占线程    If sum Mod 600 = 0 Then        ima1.Item(timepp - 1).Visible = True        sum = 0    End IfEnd Sub