Public Sub AddLeroy (x As Int, y As Int, size As Int)
Dim animator As SpriteAnimator
Dim rects(5) As Rect
Dim bitmaps(5) As Bitmap
Dim row As Int
row = 0
'The Leroy sprite sheet includes 1 row of sprites.
For i = 0 To 4
rects(i) = leroyBitmaps(i+1, row).SrcRect
bitmaps(i) = leroyBitmaps(i+1, row).Bitmap
Next
animator.Initialize
Dim bd As BitmapData
animator.SetFrames(bd, rects, bitmaps) 'sets the frames that will be animated
animator.AnimationInterval = 10
MyLeroy.Initialize(bd, animator, Me, x, y, size)
gv.BitmapsData.Add(bd) 'add Leroy to the GameView (so it will be redrawn every time).
End Sub