Animasi Fade Form

Animasi Fade Form adalah animasi fade / transparasi / opacity yang ditampilkan ketika suatu Form dibuka dan ditutup. Berikut cara membuatnya :

[ VB 6.0 ]
Buat Project baru dengan sebuah Form dan sebuah Module didalamnya. Di Module ketikkan kode Module yang ada disini. Lalu di Form di bagian 'Form_Load' ketikkan :

FadeForm Me, 0
Me.Show
  
Dim i As Integer
For i = 1 To 255 Step 1
FadeForm Me, i
DoEvents
Next
  
FadeForm Me, 255

Dan di bagian 'Form_Unload' ketikkan :

Dim i As Integer
For i = 255 To 1 Step -1
FadeForm Me, i
DoEvents
Next

[ VB .NET ]
Buat Project baru dengan sebuah Form didalamnya. Di bagian 'Form1_Load' ketikkan :

Me.Opacity = 0
Me.Show()

Dim i As Integer
For i = 1 To 100 Step 1
Me.Opacity = i / 100
Application.DoEvents()
Next

Me.Opacity = 1

Dan di bagian 'Form1_FormClosed' ketikkan :

Dim i As Integer
For i = 100 To 1 Step -1
Me.Opacity = i / 100
Application.DoEvents()
Next

CATATAN : Kecepatan animasi tergantung besar nilai angka yang berwarna merah dan ukuran Form itu sendiri.