Screen Fading

[Hack]

This is a little piece of code that will fade the screen, on unload, in one of four different directions. Each time the screen is closed, it will fade in a direction different than the last time it was closed. I use this on my About boxes.Option Explicit

Private Sub FadeScreen(pfForm As Form, pstrWhichWay As String)

Dim sngVertical As Single
Dim sngHorizontal As Single
Dim sngMoveToRight As Single
Dim sngMoveTop As Single
Dim i As Integer
Const cnstStep = 1000

sngVertical = pfForm.Width / cnstStep

Select Case UCase(pstrWhichWay)
Case "TR"
'fade to top right '
sngMoveToRight = pfForm.Height / cnstStep
sngHorizontal = sngMoveToRight
Case "BL"
'fade to bottom left
sngMoveTop = pfForm.Height / cnstStep
sngVertical = sngMoveTop
sngHorizontal = pfForm.Height / cnstStep
Case "BR"
'fade to bottom right
sngMoveTop = pfForm.Height / cnstStep
sngVertical = sngMoveTop
sngMoveToRight = pfForm.Height / cnstStep
sngHorizontal = pfForm.Height / cnstStep
Case Else
'default to top left if you put something else in
sngHorizontal = pfForm.Height / cnstStep 'size of horizontal steps
End Select
'save direction to registry
SaveSetting "FormName", "Unload Screen", "Direction", pstrWhichWay
For i = 1 To cnstStep - 1
pfForm.Move pfForm.Left + sngMoveToRight, pfForm.Top + sngMoveTop, _
pfForm.Width - sngHorizontal, pfForm.Height - sngVertical
Next

Unload Me

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim strRegSetting As String
Dim strNewDirection As String
strRegSetting = GetSetting("FormName", "Unload Screen", "Direction")
If strRegSetting = vbNullString Then
FadeScreen Me, "BR"
Exit Sub
Else
Select Case strRegSetting
Case "BR"
strNewDirection = "BL"
Case "BL"
strNewDirection = "TR"
Case "TR"
strNewDirection = "BR"
End Select
End If
FadeScreen Me, strNewDirection
End Sub