private Sub unaCarta(kk As Bitmap,x As Int,y As Int,h As Int,w As Int) As Bitmap
Dim g As Canvas
Dim b As Bitmap
Dim rect1 As Rect
Dim rect2 As Rect
rect1.Initialize((x-1)*w,(y-1)*h,x*w,y*h)
rect2.Initialize(0,0,w,h)
rect1.Height=h
rect1.Width =w
g.Initialize2(b)
g.DrawBitmap(kk,rect1,rect2)
Return g.Bitmap
End Sub