Fade In Fade Out di VB.NET

Fade in ? Misal kita ingin membuat animasi sederhana pada aplikasi kita ?
Fade in apa yah maksudnya ?? Maksudnya adalah ketika form di tampilkan dia tidak nampak sekaligus namun dia nampak secara bertahap.. begitupun dengan fade out ? ketika form diexit maka dia tidak langsung hilang tampilannya tetapi hilang secara bertahap.
Kebertahapan kemunculan dan kehilangan tampilan form ini  di atur dengan opocity nya.. Nah untuk lebih jelas mari kita ikuti tutorialnya berikut ini.
1. Seperti Biasa anda buka Visual Studionya. dan Buat New Project.
2. Setelah muncul tampilan form maka silahkan anda double klik formnya dan coding ini di event loadnya :

   1: Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   2:     Dim a As Integer

   3:     For a = 0 To 100 Step +1

   4:         Me.Opacity = a / 100

   5:         Me.Refresh()

   6:     Next

   7: End Sub

3. Lalu tambahkan satu button dan beri nama keluar, lihat gambar berikut ini. :


4. Double click button nya dan coding ini :

   1: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

   2:        Dim a As Integer

   3:        For a = 100 To 0 Step -1

   4:            Me.Opacity = a / 100

   5:            Me.Refresh()

   6:        Next

   7:        Me.Close()

   8: End Sub

5. Code Lengkapnya sepeti ini :

   1: Public Class Form1

   2:  

   3:     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

   4:         Dim a As Integer

   5:         For a = 0 To 100 Step +1

   6:             Me.Opacity = a / 100

   7:             Me.Refresh()

   8:         Next

   9:     End Sub

  10:  

  11:     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

  12:         Dim a As Integer

  13:         For a = 100 To 0 Step -1

  14:             Me.Opacity = a / 100

  15:             Me.Refresh()

  16:         Next

  17:         Me.Close()

  18:     End Sub

  19: End Class

Kalau memerlukan source codenya bisa didownload disini