Option Compare Database
Option Explicit

' Работа с дескрипторами и контекстами устройства DC'
Public Declare Function GetDesktopWindow Lib  "user32"  () As Long
Public Declare Function GetWindowDC Lib  "user32"  (ByVal hwnd As Long) As Long
Public Declare Function CreateCompatibleDC Lib  "gdi32"  (ByVal hDC As Long) As Long
Public Declare Function CreateCompatibleBitmap Lib  "gdi32"  (ByVal hDC As Long, _
ByVal nWidth As Long, ByVal nHeight As Long) As Long
Public Declare Function SelectObject Lib  "gdi32"  (ByVal hDC As Long, ByVal hObject As Long) As Long
Public Declare Function ReleaseDC Lib  "user32"  (ByVal hwnd As Long, ByVal hDC As Long) As Long
Public Declare Function DeleteDC Lib  "gdi32"  (ByVal hDC As Long) As Long
Public Declare Function DeleteObject Lib  "gdi32"  (ByVal hObject As Long) As Long

' Загрузка в память'
Public Const BLACKNESS = &H885050
Public Const DSTINVERT = &H550009
Public Const MERGECOPY = &HC000CA
Public Const MERGEPAINT = &HBB0226
Public Const NOTSRCCOPY = &H330008
Public Const NOTSRCERASE = &H1100A6
Public Const PATCOPY = &HF00021
Public Const PATINVERT = &H5A0049
Public Const PATPAINT = &HFB0A09
Public Const SRCAND = &H8800C6
Public Const SRCCOPY = &HCC0020
Public Const SRCERASE = &H440328
Public Const SRCINVERT = &H660046
Public Const SRCPAINT = &HEE0086
Public Const WHITENESS = &HFF0062

Public 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 GetDC Lib  "user32"  (ByVal hwnd As Long) As Long
' Рисование'
Public Declare Function GetSystemMetrics Lib  "user32"  (ByVal nIndex As Long) As Long
Public Declare Function CreatePen Lib  "gdi32"  (ByVal nPenStyle As Long, ByVal nWidth As Long, ByVal crColor As Long) As Long
Public Declare Function MoveToEx Lib  "gdi32"  (ByVal hDC As Long, _
ByVal x As Long, ByVal y As Long, lpPoint As POINTAPI) As Long
Public Declare Function LineTo Lib  "gdi32"  (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long
Public Declare Function Ellipse Lib  "gdi32"  (ByVal hDC As Long, _
ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Type POINTAPI
        x As Long
        y As Long
End Type

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type


Public Sub vv(ByVal dd As Form)

On Error GoTo s1
' В этой переменной хранится временный дескриптор контекста окна'
Dim hDC As Long
Dim RectForm As RECT
Dim LineStyle As Long, LineWidth As Long, LineColor As Long
Dim PenHND As Long, OldPen As Long
Dim x As Long, y As Long
Dim MBM As Long
Dim MDC As Long
  ' Получаем дескриптор контекста холста'
  hDC = GetDC(dd.hwnd)
  ' Создаем совместимый дескриптор'
  MDC = CreateCompatibleDC(hDC)
  ' Создаем совместимую битовую карту с картой битов холста'
  MBM = CreateCompatibleBitmap(hDC, RectForm.Right, RectForm.Bottom)
  ' Удаляем дескриптор'
  ReleaseDC dd.hwnd, hDC
  ' Выбираем битовую карту во временный контекст'
  SelectObject MDC, MBM
  
  ' рисуем на этом контексте'
  LineStyle =  1 
  LineWidth =  1 
  LineColor =  1 
  PenHND = CreatePen(LineStyle, LineWidth, LineColor)
  ' Выбираем созданные дескрипторы пера и кисти в контекст'
  OldPen = SelectObject(MDC, PenHND)
  
  x =  10 
  y =  10 
  ' Рисуем круг в коорд x и y, диам. 20'
  Call Ellipse(MDC, x, y, x +  20 , y +  20 )
   
   ' Выбираем в контекст старую кисть'
   ' ЭТО ОЧЕНЬ ВАЖНАЯ ОПЕРАЦИЯ'
   SelectObject hDC, OldPen
  ' Удаляем новую кисть'
  ' И ЭТО ОЧЕНЬ ВАЖНАЯ ОПЕРАЦИЯ'
  DeleteObject (PenHND)
 
' Вывести виртуальное окно на форму'
  BitBlt dd.hDC, RectForm.Left, RectForm.Top, RectForm.Right, RectForm.Bottom, MDC,  0 ,  0 , SRCCOPY
 [SIZE= 3 ][color=blue]здесь вот и ругается[/color][/SIZE]
  
 ' Удалить битовую карту'
 DeleteObject MBM
 ' Удалить дескриптор'
 DeleteDC MDC
Exit Sub
s1:
    MsgBox Err.Description

End Sub