Italian porzione di bitmap

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