Loads a sprites sheet and creates the rectangles needed to show each frame.
Public Sub LoadSpritesFromSheet(Bmp As Bitmap, Columns As Int, Rows As Int) As BitmapData(,)
Dim bds(Columns, Rows) As BitmapData
Dim x, y As Float
x = Bmp.Width / Columns
y = Bmp.Height / Rows
For c = 0 To Columns - 1
For R = 0 To Rows - 1
bds(c, R).Bitmap = Bmp 'all the sprites point to the same whole bitmap
bds(c, R).SrcRect.Initialize(c * x, R * y, c * x + x, R * y + y)
Next
Next
Return bds
End Sub