Dibujar Rectangulo con Fondo (API)

[Judgement]

Saludos, el titulo lo explica todo, necesito dibujar un rectangulo con color de fondo, pero necesito usar API.

Lo unico que he encontrado es con el metodo Line.

Si alguien puede ayudarme con el codigo, muchas gracias por su ayuda

[David]

Podrías usar algo como esto:

Código vb:

Private Declare Function PaintRgn Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
 

Código vb:

Dim hRgn As Long
Me.AutoRedraw = True
Me.FillStyle = vbSolid
Me.FillColor = vbBlue
hRgn = CreateRectRgn(1, 1, 100, 100)
PaintRgn Me.hdc, hRgn
 

[Judgement]

Muchas gracias David, funciona de maravilla. Muchas gracias por la respuesta tan rapida.

Solo una duda, sabes como lograr ese mismo efecto pero con la API Rectangle?

[David]

Pues... así:

Código vb:

Me.AutoRedraw = True
Me.FillColor = vbBlue
Me.FillStyle = vbSolid
Rectangle Me.hdc, 10, 10, 100, 100
 

[Judgement]

gracias.