Public Sub Initialize (Callback As Object, EventName As String, ServerUrl As String)
csu.Initialize
sql.InitializeSQLite(File.DirApp, "db.db", True)
CreateDatabase
url = ServerUrl & "/action"
autoRefreshTimer.Initialize("AutoRefresh", 1000)
mCallback = Callback
mEventName = EventName
HandleQueue
If False Then CallSub(Me, "HandleQueue") 'to avoid obfuscation issues
End Sub