Aaro4130's Codes

[aaro4130]

[TUTORIAL] : Make a fading exit effect on your form

This is my little tutorial about making a fading exit-effect on a form


CONTROLS - Add the following to your form

- 1 Timer (Enabled=False, Interval=1)

STEP-BY-STEP - The How To

- Declare the following variables before any functions/subs yet within the class

Dim cancelClose As Boolean = True

- Add this to your form's load code

Me.AllowTransparency = True

- Add this to your timers "tick" code

  Me.Opacity -= 0.05
        If Me.Opacity = 0 Then
            cancelClose = False
            Me.Close()
        End If

- Finally, add this to the form's FormClosing() event

     fadetimer.Enabled = True
        e.Cancel = cancelClose

YOUR DONE!

Enjoy your fading form