Make your own free website on Tripod.com

AllApi.net

[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
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    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 KPDTeam@Allapi.net with comments about this web site.
This site is located at
http://www.Allapi.net/