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
Me.Refresh
DoEvents
Loop
Unload Me: End
End Sub

Leave a Reply

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

WordPress.com Logo

You are commenting using your WordPress.com 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 )

Google+ photo

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

Connecting to %s

Information

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