Membuat Effect fade out visual basic 2008/vb.net

Untuk Membuat Effect fade out visual basic 2008/vb.net sebenarnya sangat sederhana sekali karena tidak begitu membutuhkan ketelitian yang sangat matang, dan hanya menggunakan beberapa metode saja, saya mencoba Membuat Effect fade out visual basic 2008/vb.net dengan beberapa fariasi sehingga tidak begitu terlihat monoton.

Dengan visual basic 2008 saya akan memulai pembuatan effect fade out, cukup dengan 1 form dan rubah gambar background lalu masukkan komponen 1 timer dan 1 trackbar, untuk trackbar set maximum jadi 700 lalu ganti size menjadi 0 dan timer interval menjadi 10, lalu perkecil hingga batas akhir minimun ukuran form1 lihat gambar dibawah:

Sebelum diperkecil seperti gambar diatas tampilannya seperti gambar dibawah:

 

Setelah tampilan form seperti gambar pertama, kemudian klik 2 kali form, hapus semua kode dan masukkan kode dibawah:

Public Class Form1

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

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Width += 1
        Me.Height += 1
        TrackBar1.Maximum = Me.Width
        TrackBar1.Value = Me.Width
        TrackBar1.Width = Me.Width
        If Me.Width = "600" Then
            Timer1.Enabled = False
        End If
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        Me.Width = TrackBar1.Value
    End Sub
End Class

Maka ketika di Run secara otomatis form akan melebar dan ketika ukuran lebar form mencapai 600 maka form akan berhenti memperlebar, dan dibawah terdapat trackbar jika ditarik kekiri, maka ukuran lebar form akan semakin mengecil.