|
|
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
|
|
