membuat efek form explode vb

trik untuk membuat efek tampilan form kita saat dijalankan.
pada saat form muncul pertama-tama kecil kemudian secara perlahan berubah menjadi ukuran normalnya, biar lebih bombastis ku kasih ajah judulnya "membuat efek form explode" gag papa dong yah, hohohohoh

ingin tau cara membuatnya??? ikuti step by step yah, gampang kok tinggal copas ajah beres :-D

langka-langkahnya adalah,,,,,,,,
1. buka dulu visual basic nya (ya iyalah,,,,,, masak mau bikin program pake paint )
2. bikin project baru dengan sebuah form
3. pada form klik kanan pilih view code
4. masukkan kode berikut (ini langkah yang paling kusuka,,,,,, copas hehehe)

Private Sub Explode(ByRef frm As Form, ByRef efek As Boolean)
With frm
.Width = 0
.Height = 0
.Show

If efek Then
For x = 0 To 10000 Step 50
.Move (Screen.Width - .Width) / 2, (Screen.Height - .Height) / 2, x, x
DoEvents
Next
Else
For x = 10000 To 0 Step -50
.Move (Screen.Width - .Width) / 2, (Screen.Height - .Height) / 2, x, x
DoEvents
Next
End
End If
End With
End Sub

Private Sub Form_Load()
Explode Me, 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
Cancel = 1: Explode Me, 0
End Sub

5. coba jalankan programnya dengan klik run atau F5
6. berdoa supaya tidak terjadi eror (paling utama dan paling penting)
7. kalo sukses jgn lupa ucapkan alhamdulilah, sedang kalo gagal ya di muncul kesalahan apa, terus di benerin deh tu

ini contoh programnya download program explode form