Info Pendidikan Bogor

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

Unload Tirai (VB)

Kode berikut akan membuat program visual basic saat ditutup menjadi seperti tirai yang ditutup. Penasaran. Ini Kodenya.

Private Sub Form_Unload(Cancel As Integer)
Dim a As Long
Dim b As Long
a = Me.ScaleHeight
b = Me.ScaleWidth
While Not a = 0
Me.Height = Me.Height – 100
a = a – 1
While Not b = 0
Me.Width = Me.Height – 100
b = b – 1
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 )

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


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