' graphics Class module
Sub Class_Globals
Public eshp1(6) As Sprite
End Sub
'Initializes the object. You can add parameters to this method if needed.
Public Sub Initialize
Dim est1 As Sprite
est1.Bitmap=LoadBitmap(File.DirAssets,"easy/stage1.png")
eshp1(0).Bitmap=est1.Bitmap : eshp1(0).Region(256,6,202,206) : eshp1(0).MidAnchor
eshp1(1).Bitmap=est1.Bitmap : eshp1(1).Region(6,394,117,102) : eshp1(1).MidAnchor
eshp1(2).Bitmap=est1.Bitmap : eshp1(2).Region(6,226,202,102) : eshp1(2).MidAnchor
eshp1(3).Bitmap=est1.Bitmap : eshp1(3).Region(137,394,100,102) : eshp1(3).MidAnchor
eshp1(4).Bitmap=est1.Bitmap : eshp1(4).Region(6,6,236,206) : eshp1(4).MidAnchor
eshp1(5).Bitmap=est1.Bitmap : eshp1(5).Region(222,226,168,154) : eshp1(5).MidAnchor
End Sub