Public Sub DrawImage( bm As Bitmap, hpos As Float, vpos As Float)
Dim src As Rect
Dim dst As Rect
src.Initialize(0,0,bm.Width,bm.Height)
dst.Initialize(Orx+(hpos*72),Ory+(vpos*72),Orx+(hpos*72)+bm.Width,Ory+(vpos*72)+bm.Height)
drw.DrawBitmap(bm,Null,dst)
End Sub