Нарисовать рамку

[X-BOND]

Вопрос пустяковый
Надо нарисовать рамку с прозрачным фоном.
Рисую с помощью Rectangle. Цвет/стиль рамку задаю с помощью CreatePen.
А вот как задать прозрачный фон?

(Родные методы/свойства формы не предлагать.)

[Alexanbar]

Попробуй собрать из четырёх линий

Private Sub DrawRectangle(ByVal hdc As Long, tcrp As RECT)
Dim pa As POINTAPI



MoveToEx hdc, tcrp.Left, tcrp.Top, pa
LineTo hdc, tcrp.Right, tcrp.Top

MoveToEx hdc, tcrp.Left, tcrp.Top, pa
LineTo hdc, tcrp.Left, tcrp.Bottom

MoveToEx hdc, tcrp.Left, tcrp.Bottom - 1, pa
LineTo hdc, tcrp.Right, tcrp.Bottom - 1

MoveToEx hdc, tcrp.Right - 1, tcrp.Top, pa
LineTo hdc, tcrp.Right - 1, tcrp.Bottom - 1
End Sub

[tyomitch]

X-BOND, просто задай в качестве браша GetStockObject(HOLLOW_BRUSH)

[X-BOND]

А я копал в сторону Create*Brush, а все оказалось еще проще.
Благодарю