br4nd4l-666

Dah lama gak posting di blog.....
maklum lagi ngerjakan TP (Tugas Pemrograman)..... hehehehe...

oke langsung aja y......

pertama....
- siapkan 1 buah form
- 1 buah timer

terus.... masukin nc scriptnya.....


'-----------------------awal--------------------------
Private Sub Form_Load()
Form1.Height = 0
Form1.Width = 0
End Sub

Private Sub Picture1_Click()

End Sub

Private Sub Timer1_Timer()
While (Form1.Height < 6015) Or (Form1.Width < 7950)
If Form1.Height = 6015 Then
Form1.Height = Form1.Height + 0
Form1.Width = Form1.Width + 85
Else
Form1.Height = Form1.Height + 85
Form1.Width = Form1.Width + 94
End If
DoEvents
Wend
End Sub

'-----------------------akhir--------------------------

semoga bermanfaat.... :)