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()
0 comment
No comments associated with this article