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 SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function UnionRect Lib "user32.dll" (lpDestRect As RECT, lpSrc1Rect As RECT, lpSrc2Rect As RECT) As Long
Private Declare Function SubtractRect Lib "user32.dll" (lprcDst As RECT, lprcSrc1 As RECT, lprcSrc2 As RECT) As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim Src1 As RECT, Src2 As RECT, URect As RECT, SRect As RECT
    SetRect Src1, 0, 0, 100, 150 '(0,0)-(100,150)
    SetRect Src2, 10, 50, 200, 100 '(10,50)-(200,100)
    UnionRect URect, Src1, Src2 '(0,0)-(200,150)
    SetRect SRect, 0, 0, 200, 10 '(0,0)-(200,10)
    SubtractRect URect, URect, SRect '(0,10)-(200,150)
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/