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 double klik 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()