Membuat animasi form membuka melebar di Visual Basic

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 :

1. Private Sub Form_Load()  
2. Me.Width = 1845 'seting ukuran form  
3. Me.Height = 510  
4. End Sub  
5.   
6. Private Sub Timer1_Timer()'timer membuka melebar  
7. If Me.Width <= 5000 Then  
8. Do Until Me.Width = 5000  
9. Me.Width = Me.Width + 5  
10. Loop  
11. Else  
12. Timer1.Enabled = False  
13. End If  
14. End Sub  
15.   
16. Private Sub Timer2_Timer()'timer membuka tinggi  
17. If Me.Width >= 5000 Then  
18. Do Until Me.Height = 5000  
19. Me.Height = Me.Height + 5  
20. Loop  
21. Else  
22. Timer2.Enabled = False  
23. End If  
24. End Sub  

sekarang kalian coba running, oia untuk timer seting intervalnya 500 ajah cukup.yang males nyoba,sok di download langsung