一个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 = 1000
End Sub

Private 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 Then
        ima1.Item(timepp - 1).Visible = True
        sum = 0
    End If
End Sub

改错:
VB code

Private Sub Form_Load()
    Timer2.Interval = 1000
End Sub

Private 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 60 = 0 Then
        ima1.Item(timepp - 1).Visible = True
        sum = 0
    End If
End Sub

仍有错,修改如下:
VB code

Private Sub Form_Load()
    Timer2.Interval = 1000
End Sub

Private 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 If
End Sub

谢谢楼上的孜孜不倦！！我先试试，好用再来再谢！！

大侠，没延时啊。
Private 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 If
  Ima1.Item(Timepp - 1).Visible = True ‘我想延时十秒之后让这个灯就常亮了
End Sub

Timer还需要延时？呵呵

我的代码仅提供一个思路:
VB code

Private Sub Form_Load()
    Timer3.Interval = 1000
    Timer3.Enabled = False
End Sub

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

Private Sub Timer2_Timer() '闪灯程序
    ima1.Item(timepp - 1).Visible = Not ima1.Item(timepp - 1).Visible
    '在这里如何写一个延时函数，最好不是sleep，怕占线程
    Timer3.Enabled = True
End Sub

给段演示代码:
VB code

Private Sub Command1_Click()
    Timer2.Enabled = True
End Sub

Private Sub Form_Load()
    Timer3.Interval = 1000
    Timer3.Enabled = False
End Sub

Private Sub Timer3_Timer() '闪灯程序
    Static sum As Long
    sum = sum + 1
    '在这里如何写一个延时函数，最好不是sleep，怕占线程
    If sum Mod 10 = 0 Then
        sum = 0
        Shape1.Visible = True
        Timer2.Enabled = False
        Timer3.Enabled = False
    End If
End Sub

Private Sub Timer2_Timer() '闪灯程序
    Shape1.Visible = Not Shape1.Visible
    '在这里如何写一个延时函数，最好不是sleep，怕占线程
    Timer3.Enabled = True
End Sub

谢谢楼上，小弟还是没看懂，我用笨办法解决的。呵呵 还是谢谢你了