'Class module
Sub Class_Globals
Dim bodyMath As lgBox2DBody
Dim mathSprite As lgSprite
Dim UD As imageType
Dim killBody As Boolean = False
Dim lifeTimer As Timer
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize(vTexture As lgSprite, vWidth As Float, vHeight As Float, vPosX As Int, vPosY As Int, vbodyType As String, vReset As Boolean, vAngle As Float, vKill As Boolean)
lifeTimer.Initialize("LifeTimer", 3000)
UD.mathItem = vbodyType
UD.killObj = vKill
.
.
.
lifeTimer.Enabled = True
End Sub
Private Sub lifeTimer_Tick
UD.killObj = True
lifeTimer.Enabled = False
End Sub