Sub Class_Globals
Private fx As JFX
Private t as Timer
Private frmSplash as Form
Private m as object
Private sEventName as string
End Sub
Sub Initialize(Module as object, EventName as string)
m = module
sEventName = EventName
'the timer will run 2 seconds
t.initialize("t", 2000)
t.enabled = true
frmSplash.initialize("")
frmSplash.loadlayout("splashLayout")
frmSplash.show
End Sub
Sub t_tick
'when timer ticks, close the splash form, then notify the main module
frmSplash.close
callSub(m, sEventName & "_Closed")
End Sub