Terkadang Ada Button Yang Bertulis CLOSE / Exit,, Ketika Diclick Button tersebut Akan Mati/ Tertutup!!....
Jika Anda kebingungan Dengan Button CLOSE itu!!..
Disini saya Akan menerangkannya:
-=-=-=-=-=-=-=-
--:>Visual Basic 6
-=-=-=-=-=-=-=-
- Buka Visual basic 6
- Buat Form Standart EXE
- Buat 1 buah Control CommandButton
- Dobble Clik Form..
- Dan Masukkan Code Berikut.:
Private Sub Command1_Click()
ExitLayout
Unload Me
End Sub
Private Sub ExitLayout()
On Error Resume Next
Dim fHeight As Long
Dim fWidth As Long
For fHeight = Me.Height To 1000 Step -1
Me.Height = fHeight
'Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 3
Next fHeight
If Me.Height = 1000 Then
For fWidth = Me.Width To 1000 Step -2
Me.Width = fWidth
Next fWidth
End If
Me.Refresh
End Sub
Selesai!!...
Selamat mencoba
by:AlexCucuMbahGoogle
