Grafico a colores

[Sancho.Mazorka]

Hola gente, miren estaba queriendo poner un cuadradito en el centro de la pantalla y lo logre pero lo que no puedo hacer es que tenga color, aqui les dejo hasta donde llegue, alguno me podria ayudar o darme las API's para hacerlo. Muchas gracias!

Timer1.interval = 1

Código [Seleccionar] Expandir

Private Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long

Private Sub Timer1_Timer()
On Error Resume Next
Rectangle GetWindowDC(0), 509, 381, 515, 387
End Sub

Sancho.Mazorka