[Tutorial] Fade In / Out Form [Source]

[ThePrinCe]

Code:

Private Sub btnExitApplication_Click(sender As Object, e As EventArgs)
    timer1.Enabled = False
    timer2.Enabled = True
End Sub

Code:

Private Sub timer1_Tick(sender As Object, e As EventArgs)
    Opacity += 0.03
    If Opacity = 100 Then
        timer1.Enabled = False
    End If
End Sub

Private Sub timer2_Tick(sender As Object, e As EventArgs)
    Opacity -= 0.03
    If Opacity = 0 Then
        ProjectData.EndApp()
    End If
End Sub