Private Declare Function SelectObject Lib "gdi32" (ByVal hdc As Long, ByVal hObject 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 Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long

Private Sub Command1_Click()
    Me.BackColor = &HFFFFFF
    hBrush = CreateSolidBrush(RGB( 0 ,  255 ,  255 ))
    SelectObject Me.hdc, hBrush
    Rectangle Me.hdc,  10 ,  10 ,  100 ,  100 
End Sub