[VB6] Come sapere se una form è aperta

[pierabo]

Ciao, vi sono diverse possibilità; la più banale è questa:

  Dim I
  Dim IMax
  
  'la variabile serve perché la proprietà .Count varia ad ogni ciclo
  IMax = Forms.count - 1

  'In questo esempio lascia solo MDI (To 1)
  For I = IMax To 1 Step -1
    Forms(I).Hide
    Unload Forms(I)
  Next I

oppure all'interno dei singoli forms puoi scrivere una Public Sub, che esegue i comandi:

Public Sub Uscita()
  Me.Hide
  Unload Me
  Set (nome form) = Nothing
End Sub

  'In questo caso, è ancora più semplice
  For I = IMax To 1 Step -1
    Forms(I).Uscita
  Next I