Особенности работы с логическим инструментом. Пример отображения в окне прямоугольника заданного размера, толщины и цвета

Используя функции API, нарисовать красный прямоугольник с толщиной линии в 30 пикселей. DimPenAsLong, OldPenAsLongConstLightRed= &HFF' Идентификатора цвета PrivateSubCommand1_Click() DimhDcAsLonghDc= GetDC (Form1.hWnd)'Получаем дескриптор контекста формы 'Создаем сплошное перо красногоцвета' шириной 30 пикселей Pen= CreatePen (ps_Solid, 30, LightRed)'vbRed' Вставляем перо в контексте OldPen= SelectObject (hDc, Pen)'Pисуем прямоугольник Call Rectangle (hDc, 30, 30, 300, 200)

Call SelectObject (hDc, OldPen)'Восстанавливаем контекст Call DeleteObject (Pen) 'Удаляем нестандартное перо'Освобождаем контекст окна Call ReleaseDC (hWnd, hDc) EndSubPrivateSubForm_Load() Caption= "Пример использования контекста"Command1.Caption = "Rectangle"BackColor= &HFFFFFF'Белый цвет фона окна EndSub