Hi,
to copy a part of the bitmap, you don't need to do so much work ;)
Option Explicit
Private Sub cmdLoadPic_Click()
Picture1.Picture = LoadPicture("midcity.bmp")
End Sub
Private Sub cmdBitBlt_Click()
BitBlt Picture2.hDC, 0, 0, 40, 40, _
Picture1.hDC, 10, 10, SRCCOPY...