Timer1 Interval Değerini 50 Yapın
Ve Kapatma İşlemini Yapılacak Nesneye Yazın

Timer.Enabled = True

Ve Timer1 in Tick Özelliğine Kodları Yazın . Kapanma Gösterişli Olacaktır

  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If Me.Opacity = 0 Then

            Application.Exit()

        Else

            Me.Opacity = Me.Opacity - 0.1

        End If

    End Sub