VBIDEUtils/Unload.bas at master · tannerhelland/VBIDEUtils · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Attribute VB_Name = "Unload_Module"
' #VBIDEUtils#************************************************************
' * Programmer Name  : removed
' * Web Site         : http://www.ppreview.net
' * E-Mail           : removed
' * Date             : 16/02/2000
' * Time             : 14:19
' * Module Name      : Unload
' * Module Filename  :
' * *******************************************************************
' * Comments         :
' *
' *
' * *******************************************************************

Option Explicit

Private Type RECT
   left                 As Long
   top                  As Long
   right                As Long
   bottom               As Long
End Type
Private Declare Function DrawAnimatedRects Lib "user32" (ByVal hWnd As Long, ByVal idAni As Long, lprcFrom As RECT, lprcTo As RECT) As Long
Private Const IDANI_CAPTION = &H3

Private Declare Function GetWindowRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long

Public Sub UnloadEffect(frm As Form)
   ' #VBIDEUtils#************************************************************
   ' * Programmer Name  : removed
   ' * Web Site         : http://www.ppreview.net
   ' * E-Mail           : removed
   ' * Date             : 16/02/2000
   ' * Time             : 14:19
   ' * Module Name      : Unload
   ' * Module Filename  :
   ' * Procedure Name   : UnloadEffect
   ' * Parameters       :
   ' * *******************************************************************
   ' * Comments         :
   ' *
   ' *
   ' * *******************************************************************

   Dim FromRect         As RECT
   Dim ToRect           As RECT

   GetWindowRect frm.hWnd, FromRect
   GetWindowRect frm.hWnd, ToRect
   ToRect.top = FromRect.bottom
   ToRect.bottom = FromRect.bottom
   ToRect.left = FromRect.right
   ToRect.right = FromRect.right

   DrawAnimatedRects frm.hWnd, IDANI_CAPTION, FromRect, ToRect
End Sub