Make your own free website on Tripod.com

AllApi.net

[an error occurred while processing this directive]
 
'This Project needs a button

'In general section
Private Declare Function GetClientRect Lib "user32" Alias "GetClientRect" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Sub Command1_Click()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net

    Dim Rectangle as Rect
    'Get the left, top, width and height of this form
    GetClientRect Me.hwnd, Rectangle
    'Show it
    MsgBox "My Width is"+str$(Rectangle.Right - Rectangle.Left)+" Pixels."+Chr$(13)+"My Height is"+str$(Rectangle.Bottom - Rectangle.Top)+" Pixels."
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/