Membuat efek pada saat form di tutup pada vb6

Buat temen-temen yang masih pengen memperdalam vb ini ada sedikit tutorial tentang bagaimana membuat efek form saat ditutup

Pertama buat dulu project baru kemudian tambahkan 1 timer dan 3 command, ganti properties interval timer jadi 500. Kemudian, masing-masing command ganti caption-nya jadi "Jatuh Kesamping", "Jatuh Kebawah" dan "Efek Mengecil".

Ketikan code dibawah ini :

Private Sub Command1_Click()
Do
Me.Left = Me.Left + 2
Me.Move Me.Left + 2
DoEvents
Loop Until Me.Left > Screen.Width
Unload Me
End Sub

Private Sub Command2_Click()
Do
Me.Top = Me.Top + 20
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height - 500
Unload Me
End Sub

Private Sub Command3_Click()
GotoVal = Me.Height / 2
For Gointo = 1 To GotoVal
DoEvents
Me.Height = Me.Height - 10
If Me.Height <= 11 Then GoTo horiz Next Gointo horiz: Me.Height = 30 GotoVal = Me.Width / 2 For Gointo = 1 To GotoVal DoEvents Me.Width = Me.Width - 10 If Me.Width <= 11 Then End Next Gointo End End Sub Semoga bermanfaat.