Animasi Form vb6

Animasi pada vb6, emg bisa..??
Ehmm coba dulu dech...

Sobat blogger pasti ngrasa bosan dengan gaya form ketika Load atau Unload yang gitu-gitu aja..
gak ada sensasi "wahh.." gtu...
untuk itu gw kasi beberapa tips n trik agar saat form load atau unload memiliki gaya atau animasi...
yuk bikin coding...

Ketika Form Load [ muncul ]

 - Form Melebar dari tengah ke samping

Beri tambahan timer pada form ( interval = 100)
Public Sub Tengah()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub

Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left + 40
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
End Sub

Private Sub Form_Load()
Me.Width = 10
End Sub

Private Sub Timer1_Timer()
Me.Width = Me.Width + 500
Tengah
If Me.Width >= 5000 Then
Timer1.Enabled = False
Tengah
End If
End Sub

 - Form Melebar dari tengah ke samping

Beri tambahan timer pada form ( interval = 100)

Public Sub Tengah()
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
End Sub

Private Sub Form_Load()
Me.Height = 10
End Sub

Private Sub Timer1_Timer()
Me.Height = Me.Height + 500  'ganti angka 500 sesuai dgn selera'
Tengah
If Me.Height >= 3000 Then ' sesuaikan dgn heigh form'
Timer1.Enabled = False
Tengah
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left + 100
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
End Sub

Ketika Form Unload [ ngilang ]
- Form menutup ke atas atau ke bawah
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Top = Me.Top - 5
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Top > Screen.Height - 300
End Sub
* untuk menutup kebawah ganti  + pada " Me.Top = Me.Top - 5 "

 - Form menutup ke kanan atau ke kiri
Private Sub Form_Unload(Cancel As Integer)
Do
Me.Left = Me.Left + 5   ' ganti angka 5 sesuai dgn selera'
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
End Sub
* untuk menutup kebawah ganti  -  pada " Me.Left = Me.Left + 5 "
 
 Untuk contoh aplikasi nya download disini