Sub Class_Globals
Type AnimObj (Obj As View,Left As Int,Top As Int,Width As Int,Height As Int)
Dim List1 As List
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
List1.Initialize
End Sub
Public Sub Clear
List1.Clear
End Sub
public Sub Add(Obj As AnimObj)
List1.Add(Obj)
End Sub
Public Sub Tick
If List1.Size = 0 Then Return
Dim Obj As AnimObj
Obj = List1.Get(0)
Dim ObjUI As View
ObjUI = Obj.Obj
ObjUI.Left = Obj.Left
ObjUI.Top = Obj.Top
ObjUI.Width = Obj.Width
ObjUI.Height = Obj.Height
ObjUI.Invalidate
List1.RemoveAt(0)
End Sub