Membuat Efek Ledakan Form di VB6
Coding ini digunakan untuk memberikan efek ledakan di Form pada VB6 Ikuti langkah-langkah berikut ini - Siapkan 1 form baru - Siapkan pula 1 command button Klik gambar untuk memperbesar copy kan coding berikut ini di form Private Sub Command1_Click() Ganti 20000 di bawah dengan kecepatan dari efek ledakan form. Call ImplodeForm(Me, 20000) End Set Form1 = Nothing End Sub Private Sub Form_Load() Call ExplodeForm(Me, 20000) ledakan form End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) Call ImplodeForm(Me, 20000) pengembalian form End Sub dan buatlah satu module kemudian copy kan coding berikut ini di module: #If Win16 Then Type RECT Left As Integer Top As Integer Right As Integer Bottom As Integer End Type #Else Type RECT Left As Long Top As Long Right As ...