Efek Ketika Form Di Close (VB 6)

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 3 command. Kemudian, masing-masing command ganti caption-nya jadi "Jatuh Kesamping", "Jatuh Kebawah" dan "Efek Mengecil".

Ketikan code dibawah ini :

Private Sub Command1_Click()
'EFEK JATUH KE SAMPING
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()
'EFEK JATUH KE BAWAH
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()
'EFEK MENGECIL
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....