Info Pendidikan Bogor

Info | Silabus | Pendidikan | Dunia IT | Bogor | Komputer | Manajemen

Unload Ke Sudut (VB)

Unik Nih??, Form akan berjalan menuju pojok layar lalu pergi!
Coba saja nih.

Private Sub Form_Unload(Cancel As Integer)
Do Until Me.Top <= -15000
Me.Width = Me.Width – 300
Me.Left = Me.Left + 150
Me.Top = Me.Top – 50
Me.Height = Me.Height – 150
Unload Me: End
End Sub


Leave a Reply

Fill in your details below or click an icon to log in: Logo

You are commenting using your account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )


Connecting to %s


This entry was posted on June 4, 2012 by in Visual Basic and tagged , .
%d bloggers like this: