Ver originalMe.AutoRedraw = TrueMe.FillColor = vbBlueMe.FillStyle = vbSolidRectangle Me.hdc, 10, 10, 100, 100