CodeItBetter Programming Another VB Programming Blog

'Forms - How to fade the form away when the user closes it.
Private Sub Command1_Click()
    FadeScreen Me, "tl"
End Sub
 
Public Function FadeScreen(frm As Form, strWhichWay As String)
    Dim sngVertSize As Single
    Dim sngHorSize As Single
    Dim sngMoveRight As Single
    Dim sngMoveTop As Single
    Dim i As Integer
    Const cstStep = 100
    sngVertSize = frm.Width / cstStep
    Select Case UCase(strWhichWay)
    Case "TR"
        'fade to top right
        sngMoveRight = frm.Height / cstStep
        sngHorSize = sngMoveRight
    Case "BL"
        'fade to bottom left
        sngMoveTop = frm.Height / cstStep
        sngVertSize = sngMoveTop
        sngHorSize = frm.Height / cstStep
    Case "BR"
        'fade to bottom right
        sngMoveTop = frm.Height / cstStep
        sngVertSize = sngMoveTop
        sngMoveRight = frm.Height / cstStep
        sngHorSize = frm.Height / cstStep
    Case Else
        'default to top left if you put something else in
        sngHorSize = frm.Height / cstStep    'size of horizontal steps
    End Select
    For i = 1 To cstStep - 1
        frm.Move frm.Left + sngMoveRight, frm.Top + sngMoveTop, _
                 frm.Width - sngHorSize, frm.Height - sngVertSize
    Next
    Unload frm
End Function