Indeks
Bagi yang tertarik dengan animasi silahkan Copas coding dibawah ini, Persiapan Buat sebuah Project Baru Standart EXE tambahkan 1 buah Control CommandButton
- Spoiler:
- 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
