Как лучше организовать прокрутку в MDIChild? - VB - Ответ 2562447

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Declare Function CreateCompatibleDC Lib 'gdi32' (Byval hDC As Long) As Long
Private Declare Function BitBlt Lib 'gdi32' (Byval hDestDC As Long, Byval x As Long, Byval y As Long, Byval nWidth As Long, Byval nHeight As Long, Byval hSrcDC As Long, Byval xSrc As Long, Byval ySrc As Long, Byval dwRop As Long) As Long
Declare Function CreateCompatibleBitmap Lib 'gdi32' (Byval hDC As Long, Byval nWidth As Long, Byval nHeight As Long) As Long
Declare Function SelectObject Lib 'gdi32' (Byval hDC As Long, Byval hObject As Long) As Long
Declare Function DeleteObject Lib 'gdi32' (Byval hObject As Long) As Long
Private Const SRCCOPY = &HCC0020
 
'Clipboard functions:
Private Declare Function OpenClipboard Lib 'USER32' (Byval hWnd As Long) As Long
Private Declare Function CloseClipboard Lib 'USER32' () As Long
Private Declare Function SetClipboardData Lib 'USER32' (Byval wFormat As Long, Byval hMem As Long) As Long
Private Declare Function EmptyClipboard Lib 'USER32' () As Long
Private Const CF_BITMAP = 2
 
Public Function CopyPictureToClipboard(ByRef p_Object As Object) As Boolean
    Dim lngDC As Long
    Dim lngBMP As Long
    Dim lngOldBMP As Long
    Dim lngWidthPixels As Long
    Dim lngHeightPixels As Long
 
    lngDC = CreateCompatibleDC(p_Object.hDC)
    If (lngDC <> 0) Then
        ' Create a compatible bitmap
        lngWidthPixels = p_Object.ScaleX(p_Object.ScaleWidth, p_Object.ScaleMode, vbPixels)
        lngHeightPixels = p_Object.ScaleY(p_Object.ScaleHeight, p_Object.ScaleMode, vbPixels)
        lngBMP = CreateCompatibleBitmap(p_Object.hDC, lngWidthPixels, lngHeightPixels)
        If (lngBMP <> 0) Then
            ' Select the bitmap into the DC we have created,
            ' and store the old bitmap:
            lngOldBMP = SelectObject(lngDC, lngBMP)
            
            ' Copy the contents of p_Object to the bitmap:
            BitBlt lngDC, 0, 0, lngWidthPixels, lngHeightPixels, p_Object.hDC, 0, 0, SRCCOPY
            
            ' Delete the bitmap from the DC:
            SelectObject lngDC, lngOldBMP
                        
            ' Now set the clipboard to the bitmap:
            OpenClipboard 0
            EmptyClipboard
            SetClipboardData CF_BITMAP, lngBMP
            CloseClipboard
        End If
        
        DeleteObject lngDC
    End If
End Function

Private Sub cmdPrintCliboard_Click()
    CopyPictureToClipboard Picture1
    Printer.PaintPicture Clipboard.GetData(vbCFBitmap), 0, 0
End Sub