Code:

code opacity bij het afsluiten van formulier

Private eventclosing As System.Windows.Forms.FormClosingEventArgs
Public Event formuliersluiten(ByVal f As Form)

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Opacity -= 0.1 'Snelheid (Bijv. 0.001 extreem traag, 0.1 snel, alle waarden van 0,001 t/m 0,999)

        If Me.Opacity = 0 Then
            RaiseEvent formuliersluiten(Me)
            Me.Timer1.Enabled = False
        End If

    End Sub

    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Me.eventclosing = e
        Me.eventclosing.Cancel = True
        Me.Timer1.Enabled = True
    End Sub

    Private Sub Form1_formuliersluiten(ByVal f As System.Windows.Forms.Form) Handles Me.formuliersluiten
        End
    End Sub


2° code opacity voor openen van het formulier

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Opacity += 0.05 '(Bijv. 0.001 extreem traag, 0.1 snel, alle waarden van 0,001 t/m 0,999)

        If Me.Opacity = 1 Then
            Me.Timer1.Enabled = False
        End If

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Opacity = 0
        Me.Timer1.Enabled = True
    End Sub