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