Membuat animasi form membuka melebar

Sekarang saya akan mencoba sedikit berbagi ilmu lagi tentang animasi di VB



Kali ini yang dibahas mengenai animasi form membuka secara melebar. Jadi saat kita run aplikasi tsb,formnya membuka melebarke ukuran yg kita inginkan.

Langsung ajah di coba :

Siapkan satu project exe biasa, dan tambahkan 2 buah timer pada form.



Ketikkan kode ini di dalam Listing form kalian :

Private Sub Form_Load()

Me.Width = 1845 'seting ukuran form

Me.Height = 510

End Sub



Private Sub Timer1_Timer()'timer membuka melebar

If Me.Width <= 5000 Then Do Until Me.Width = 5000 Me.Width = Me.Width + 5 Loop Else Timer1.Enabled = False End If End Sub Private Sub Timer2_Timer()'timer membuka tinggi If Me.Width >= 5000 Then

Do Until Me.Height = 5000

Me.Height = Me.Height + 5

Loop

Else

Timer2.Enabled = False

End If

End Sub

sekarang kalian coba running, oia untuk timer seting intervalnya 500 ajah cukup