Make your own free website on

[an error occurred while processing this directive]
Const IDANI_OPEN = &H1
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 DrawAnimatedRects Lib "User32" (ByVal hWnd As Long, ByVal idAni As Long, lprcFrom As RECT, lprcTo As RECT) As Long
Private Sub Form_Load()
    'KPD-Team 2000
    Dim rSource As RECT, rDest As RECT, ScreenWidth As Long, ScreenHeight As Long
    'retrieve the screen width and height
    ScreenWidth = Screen.Width / Screen.TwipsPerPixelX
    ScreenHeight = Screen.Height / Screen.TwipsPerPixelY
    'set the source and destination rects
    SetRect rSource, ScreenWidth, ScreenHeight, ScreenWidth, ScreenHeight
    SetRect rDest, 0, 0, 200, 200
    DrawAnimatedRects Me.hWnd, IDANI_CLOSE Or IDANI_CAPTION, rSource, rDest
    'set the form's position
    Me.Move 0, 0, 200 * Screen.TwipsPerPixelX, 200 * Screen.TwipsPerPixelY
End Sub

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