Unload semua form yang aktif

Tips sederhana ini berguna untuk unload/menutup semua form yang sedang aktif pada program anda.

Ketikkan coding ini pada event click button :

 Private Sub Command1_Click()
         Dim Form as Form
           For Each Form in Forms
               Unload Form
               Set Form = Nothing
          Next Form
End Sub