VB и работа с графическим файлом

Формулировка задачи:

есть файл BMP размеры для определенности возьмем 320*240 пикселей как выделить прямоугольник скажем с координатами Left, Top (20,20) Right, Bottom (100,100) и вывести его например в PictureBox?

Решение задачи: «VB и работа с графическим файлом»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
    Dim hImage As Long, mDC As Long
    
    hImage = LoadImage(0, 'C:320x240.bmp', IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE)
    mDC = CreateCompatibleDC(GetDC(GetDesktopWindow))
    SelectObject mDC, hImage
    BitBlt Picture1.hdc, 0, 0, 80, 80, mDC, 20, 20, vbSrcCopy
    DeleteObject mDC
End Sub
                        