Unload Semua Forms 1

Unload Semua form dengan FOR...NEXT LOOP

Kode Visual Basic 6 di bawah ini untuk menutup semua form.
Sub cmdClose_Click()
Dim iLoop As Integer
Dim iHighestForm as integer
iHighestForm = Forms.Count — 1
For iLoop = iHighestForm To 0 Step — 1
Unload Forms(iLoop)
Next iLoop
End Sub