'Class module
Sub Class_Globals
Dim myp As Activity
Dim t As Timer
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(Parent As Activity,temps As Long)
myp=Parent
t.Initialize("T1",temps)
t.Enabled=True
End Sub
Sub T1_Tick
t.enabled=False
CallSubDelayed(Me,"closeActivity")
End Sub
Sub closeActivity
myp.Finish
End Sub