Friend WithEvents fader As System.Windows.Forms.Timer
    Public Sub fade()
        Me.fader = New System.Windows.Forms.Timer
        Me.fader.Enabled = True
        Me.fader.Interval = 10
    End Sub
    Private Sub fader_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles fader.Tick
        '.01 opacity == 1%. Feel free to change this
        Me.Opacity -= 0.01
        'if the opacity gets to 0, close the program.
        If Me.Opacity = 0 Then
            'if you have an advanced program, this might need aditional stuff.. 
            ' Possibly like closing any open connections etc.
            End
        End If
    End Sub