Sul web ho trovato il seguente codice VBA, che non so in che punto del VB lo devo mettere.
(sulla scheda trovata su internet non è precisato !!)
Questo codice vba serve per creare una collezione di maschere indipendenti tra loro
Public MyCollection As New Collection
Dim frm As Form
Set frm = New Form_Clienti
frm.Visible = True
frm.Caption = "Clienti" & frm.Hwnd
MyCollection.Add Item: = frm, Key: = CStr(frm.Hwnd)
Set frm = Nothing
All'evento Close della maschera secondaria va aggiunto il seguente codice vba:
Dim obj As Object
Dim Rimuovi As Boolean
For Each obj In MyCollection
If obj.Hwnd = Me.Hwnd Then
Rimuovi = True
End If
Exit For
Next
Set Obj = Nothing
If Rimuovi = True Then
MyCollection.Remove CStr(Me.Hwnd)
End If
In entrambi i codici ci sono imprecisioni.
Sono gradite correzioni.
P.S.: il link postato al secondo messaggio, l'ho scaricato, rinominato, aperto i file, ma mi esce un avviso relativo ai sistemi a 64 bit e non riesce a leggere correttamente i files.
Buona serata.