Why wont it stop

[Drakon]

Why wont my timer turn off after it hits 5 seconds:

Private Sub ShrapTime_Timer()
Dim T As Integer
T = Second(Now) Mod 5

If T = 1 Or 2 Or 3 Or 4 Then
MoveShrap
ElseIf T = 5 Then
ShrapTime.Enabled = False
End If

End Sub

[Bruce Fox]

Try T => 5 (equal to OR greater than 5)

[Bruce Fox]

Problem here to:

If T = 1 Or 2 Or 3 Or 4 Then

should be:

If T = 1 Or T = 2 Or T= 3 Or T = 4 Then

And......... You prolly need atleast MOD 6 too.

[Drakon]

Nope, didn't work.

[Drakon]

Ah dang "or" stuff... I always mess it up.

Although it still doesnt shut down.

[Bruce Fox]

I successfully tested with this:

Option Explicit
 
Private Sub Form_Load()
   Timer1.Interval = 1000
   Timer1.Enabled = True
End Sub
Private Sub timer1_Timer()
Dim T As Integer
T = Second(Now) Mod 6
 
If T = 1 Or T = 2 Or T = 3 Or T = 4 Then
'MoveShrap
ElseIf T >= 5 Then
MsgBox "Greater Than 5"
'ShrapTime.Enabled = False
End If
 
End Sub

[Bruce Fox]

And... you can replace that whole T= LINE with:

If T <= 4 Then