(VISUAL BASIC) Efek Menutup form yang keren

Ketika anda membuat sebuah form dengan Visual Basic 6.0 standard, anda hanya mendapatkan close yang biasa biasa saja. bagaimana membuat sebuah form yang ditutup(close) dengan efek mengecil dan kemudian menghilang? coba gunakan demo script dibawah ini

buat project baru dengan
[-]sebuah command button

isikan scirpt dibawah ini pada form:

Private Sub Command1_Click()
Call Tutupkeren(Me, False)
End
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = -1
End Sub

Sub Tutupkeren(Frm As Form, Optional Maximize As Boolean = True)
Dim i As Integer
Dim iWidth As Integer
Dim iHeight As Integer

With Frm
iWidth = .Width
iHeight = .Height

If Maximize Then
.Width = 0
.Height = 0
.Show
For i = 0 To 5000 Step 500
.Width = i
.Height = i
.Left = (Screen.Width - .Width) / 2
.Top = (Screen.Height - .Height) / 2
Next
.Width = iWidth
.Height = iHeight
Else
For i = 5000 To 0 Step -10
.Width = i
.Height = i
.Left = (Screen.Width - .Width) / 2
.Top = (Screen.Height - .Height) / 2
Next
Unload Frm
End If
End With




End Sub

ntar jadinya gmana??

silvester wrote:

ntar jadinya gmana??

KAyak slide show di presentasi

wow keren ya..

btw, koin sent