Menutup Semua Form Child pada Form MDI

Apabila Anda mempunyai sebuah project yang menggunakan Form MDI dan mempunyai banyak Form Child, berikut ini adalah kode yang dibutuhkan agar semua form child tertutup dalam sekali klik.

[ VB 6.0 ]

Do Until Me.ActiveForm Is Nothing
Unload Me.ActiveForm
Loop

[ VB .NET ]

For Each f As Form In Me.MdiChildren
f.Close()
Next