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
Tidak ada komentar:
Posting Komentar