[VB] Membuat Unload Form Secara Unik

Unik gimana??, Form akan berjalan menuju pojok layar lalu pergi!
Coba saja nih.

Deklarasi:
1 Form

Source Code:

Private Sub Form_Unload(Cancel As Integer)
    Do Until Me.Top <= -15000
        Me.Width = Me.Width - 300
        Me.Left = Me.Left + 150
        Me.Top = Me.Top - 50
        Me.Height = Me.Height - 150
        Me.Refresh
        DoEvents
    Loop
    Unload Me: End
End Sub

Jangan Lupa Komentar Yaa..