Pertama ketikan koding seperti pada Form1 yang telah dibuat sebelumnya. Jika Sudah selesai, simpan dan jalankan project yang telah dibuat.
Form1
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
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
Pada saat program dijalankan akan tampil layar dari kecil menjadi besar,
kemudian menjadi kecil kembali dan tertutup. Besar dapat di atur dari coding For
x = 0 To 10000 Step 50. Jadi tampilan form akan membesar dari 0 sampai 10000
dengan step sebesar 50. .Move (Screen.Width - .Width) / 2, (Screen.Height -
.Height) / 2, x, x coding untuk merubah layar membesar ke samping dan ke atas
pada kondisi For x.
For x = 10000 To 0 Step -50
.Move (Screen.Width - .Width) / 2, (Screen.Height - .Height) / 2, x, x
Untuk merubah layar membesar ke samping dan ke atas pada kondisi For x = 10000
sampai 0 dengan step -50. Jadi tampilan form akan mengecil dari ukuran 10000
sampai 0 dengan step -50 karena form berubah dari besar ke kecil.
Postingan
