Двойная буферизация GDI

Const MOVE_DY = 10
 
' Переменные уровня модуля:
Dim Shared MemoryDC As HDC
Dim Shared MemoryBM As HBITMAP
Dim Shared OldMemoryBM As HGDIOBJ
Dim Shared ShapeRectangle As RECT
 
Function MainFormWndProc(ByVal hWin As HWND, ByVal wMsg As UINT, ByVal wParam As WPARAM, ByVal lParam As LPARAM) As LRESULT
    
    Select Case wMsg
        
        Case WM_CREATE
            ' Контекст устройства окна
            Dim hDC As HDC = GetDC(hWin)
            
            ' Контекст устройства в памяти
            MemoryDC = CreateCompatibleDC(hDC)
            
            ' Цветной рисунок на основе окна
            
            Dim ClientRect As RECT = Any
            GetClientRect(hWin, @ClientRect)
            MemoryBM = CreateCompatibleBitmap(hDC, ClientRect.right, ClientRect.bottom)
            
            ' Освобождаем контекст устройства окна, он больше не нужен
            ReleaseDC(hWin, hDC)
            
            ' Выбираем цветной рисунок, сохраняя старый
            OldMemoryBM = SelectObject(MemoryDC, MemoryBM)
            
            ' Положение круглешка
            SetRect( _
                @ShapeRectangle, _
                ClientRect.right \ 2 - 20, _
                ClientRect.bottom \ 2 - 20, _
                ClientRect.right \ 2 + 20, _
                ClientRect.bottom \ 2 + 20 _
            )
            
            ' Визуализация
            Render(hWin)

Sub Render(ByVal hWin As HWND)
    ' Прямоугольник обновления
    Dim updRect As RECT = Any
    SetRect( _
        @updRect, _
        ShapeRectangle.left - MOVE_DX - 1, _
        ShapeRectangle.top - MOVE_DY - 1, _
        ShapeRectangle.right + MOVE_DX + 1, _
        ShapeRectangle.bottom + MOVE_DY + 1 _
    )
    
    ' Стираем старое изображение
    FillRect(MemoryDC, @updRect, Cast(HBRUSH, GetStockObject(BLACK_BRUSH)))
    
    ' Рисуем
    Ellipse(MemoryDC, ShapeRectangle.left, ShapeRectangle.top, ShapeRectangle.right, ShapeRectangle.bottom)
    
    ' Выводим в окно
    InvalidateRect(hWin, @updRect, FALSE)
End Sub

        Case WM_ERASEBKGND
            Return TRUE

        Case WM_PAINT
            Dim ps As PAINTSTRUCT = Any
            Dim hDC As HDC = BeginPaint(hWin, @ps)
            
            BitBlt(hDC, ps.rcPaint.left, ps.rcPaint.top, ps.rcPaint.right, ps.rcPaint.bottom, _
                MemoryDC, ps.rcPaint.left, ps.rcPaint.top, _
                SRCCOPY _
            )
            
            EndPaint(hWin, @ps)

        Case WM_DESTROY
            SelectObject(MemoryDC, OldMemoryBM)
            DeleteObject(MemoryBM)
            DeleteDC(MemoryDC)
            PostQuitMessage(0)