Make your own free website on

[an error occurred while processing this directive]
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()
    'KPD-Team 1998
    Dim R As RECT
    'Set the graphical mode to persistent
    Me.AutoRedraw = True
    R.Left = 10: R.Right = 80
    R.Bottom = 70: R.Top = 20
    'Invert rectangle
    InvertRect Me.hdc, R
End Sub

Copyright © 1998-2000, The KPD-Team.
Send mail to with comments about this web site.
This site is located at