Нарисовать (повернуть) прямоугольник

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_PAINT
            Dim ps As PAINTSTRUCT = Any
            Dim hDC As HDC = BeginPaint(hWin, @ps)
            
            Const rgbGreen As COLORREF = &h0000FF00
            Const rgbBlue As COLORREF = &h00FF0000
            Const ParallelogramPointCount As Long = 4
            
            ' Зелёное перо толщиной три пикселя
            Dim hGreenPen As HPEN = CreatePen(PS_SOLID, 3, rgbGreen)
            ' Простая кисть синего цвета
            Dim hBlueBrush As HBRUSH = CreateSolidBrush(rgbBlue)
            
            ' Выбрать перо и кисть
            Dim hOldPen As HGDIOBJ = SelectObject(hDC, hGreenPen)
            Dim hOldBrush As HGDIOBJ = SelectObject(hDC, hBlueBrush)
            
            ' Прямоугольник
            Dim Parallelogram(ParallelogramPointCount - 1) As POINT = Any
            ' Левый верхняя вершина
            Parallelogram(0).x = 200
            Parallelogram(0).y = 200
            ' Правая верхняя вершина
            Parallelogram(1).x = 500
            Parallelogram(1).y = 200
            ' Правая нижняя вершина
            Parallelogram(2).x = 500
            Parallelogram(2).y = 400
            ' Левая нижняя вершина
            Parallelogram(3).x = 200
            Parallelogram(3).y = 400
            
            ' Рисуем
            Polygon(hDC, @Parallelogram(0), ParallelogramPointCount)
            
            ' Превращаем прямоугольник в параллелорамм
            Parallelogram(0).x += 100
            Parallelogram(1).x += 100
            
            ' Сдвигаем вниз на 400 пикселей, чтобы не пересекался с уже нарисованным
            Parallelogram(0).y += 400
            Parallelogram(1).y += 400
            Parallelogram(2).y += 400
            Parallelogram(3).y += 400
            
            ' Рисуем
            Polygon(hDC, @Parallelogram(0), ParallelogramPointCount)
            
            ' Восстановить старые перо и кисть
            SelectObject(hDC, hOldBrush)
            SelectObject(hDC, hOldPen)
            
            ' Удалить перо и кисть
            DeleteObject(hBlueBrush)
            DeleteObject(hGreenPen)
            
            EndPaint(hWin, @ps)
            
        Case WM_DESTROY
            PostQuitMessage(0)
            
        Case Else
            Return DefWindowProc(hWin, wMsg, wParam, lParam)
            
    End Select
    
    Return 0
    
End Function