Sub Class_Globals
Public logMessage As Timer
Public theMessage As String
End Sub
Public Sub Initialize
logMessage.Initialize("logMessage", 3000)
logMessage.Enabled=True
End Sub
public Sub setMessage(msg As String)
theMessage=msg
End Sub
Sub logMessage_Tick
Log(DateTime.Time(DateTime.Now) & " " & theMessage)
End Sub