Public Event Timer()

Dim OPs As Boolean
Dim IntX As Integer
Dim After As Currency

Public Property Get Interval() As Integer
Interval = IntX
End Property

Public Property Let Interval(ByVal vNewInterval As Integer)
IntX = vNewInterval
End Property


Public Sub Go_()
OPs = True
Counter = 0
After = IntX / 1000
Dim TempTime As Currency

TempTime = Timer + After

Do Until OPs = False
    DoEvents
    If Timer >= TempTime Then
        RaiseEvent Timer
        TempTime = Timer + After
    End If
    DoEvents
Loop

End Sub


Public Sub Stop_()
OPs = False
End Sub