Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function InvertRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long Private Sub Form_Load() 'VbAndJava 1999/2000 'Guerrault Yonni 'E-Mail : Yonni4@iFrance.com Dim R As RECT Me.AutoRedraw = True R.Left = 10: R.Right = 80 R.Bottom = 70: R.Top = 20 InvertRect Me.hdc, R End Sub