Fade in & Fade out Form

Buatlah sebuah form seperti pada gambar diatas dengan 2 Buah Button. Ubah Properties Name dari Button 1 menjadi BtnIn dan Button 2 menjadi BtnOut.

Lalu klik 2x pada BtnIn, dan tuliskan script berikut ini

Dim iCount As Integer

For iCount = 0 To 100 Step +2
Me.Opacity = iCount / 100
Me.Refresh()
Threading.Thread.Sleep(50)
Next

Lalu pada BtnOut Copykan script ini

Dim iCount As Integer
For iCount = 100 To 10 Step -2
Me.Opacity = iCount / 100
Me.Refresh()
Threading.Thread.Sleep(50)
Next
Me.Close()