ini salah satu design dalam membuat form.....
dimana disini saya akan memberikan suatu effect ketika membuka suatu program tersebut.....
SOurce code nya.
Private Sub Explode(ByRef frm As Form, ByRef efek As Boolean)
With frm
.Width = 0
.Height = 0
.Show
If efek Then
For x = 0 To 10000 Step 50
.Move (Screen.Width - .Width) / 2, (Screen.Height - .Height) / 2, x, x
DoEvents
Next
Else
For x = 10000 To 0 Step -50
.Move (Screen.Width - .Width) / 2, (Screen.Height - .Height) / 2, x, x
DoEvents
Next
End
End If
End With
End Sub
Private Sub Form_Load()
Explode Me, 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Cancel = 1: Explode Me, 0
End Sub
Atau kalian bisa download contoh programnya disini
