Animasi Form

Nah...! Kali ini saya mencoba membuat animasi form, tapi ini hanya sederhana ko'. gampang loo cara buatnya.

Tanpa panjang lebar dan banyak penjelasan, Saya akan kasik tau cara membuatnya.
kamu hanya membutuhkan form baru dan letakkan kode dibawah ini

Private Sub Form_Unload(Cancel As Integer)
Animation
End Sub


Public Sub Animation()
Dim I As Long
Dim J As Long
I = Me.ScaleHeight
J = Me.ScaleWidth


While Not I = 0
Me.Height = Me.Height - 25
I = I - 1
Wend


While Not J = 0
Me.Width = Me.Width - 25
J = J - 1
Wend
End Sub

Jangan lupa diSimpan ya....!

SELAMAT MENCOBA'N SEMOGA SUKSES YA...!