Ændre .Name property for en form?

Du kan selvfølgelig godt vælge den nemme løsning der søger alle vinduer igennem efter et ID som står i vinduet tag, men der er også en anden løsning som står på kodesprog herunder

I den nemme løsning gennemsøges listen af vinduer hver gang man vil markere et andet vindue. I mit løsningsforslag indordner jeg vinduerne i en liste, og bruger en "collection" til at holde styr på frie pladser i listen. Man kan også gøre listen fleksibel, men det synes jeg er for besværligt; alle de dataflytninger en "redim preserve" bevirker (især når listen vokser sig stor).
Når en af vinduerne lukkes, og skal fjernes fra proceslinien, må man søge listen igennem efter lige netop det objekt der repræsenterer vinduet. Her kan man dog også vælge at bruge en "collection", men her kan den samtidig også undværes da man ikke lukker vinduerne så tit. Ligegyldigt hvad kunne jeg ikke forprogrammere det for dig eftersom jeg ikke ved hvordan din proceslinie er sammensat.

Hovedingrediensen er at jeg benytter mig af "form"-referencen windows sørger for ved objekt-kreation under run-time. I koden har jeg taget udgangspunkt i en proceslinie af typen "listbox":

Option Explicit

Private frmWindows() As Form            'The window frames
Private FreeFrames As Collection        'The terminated windows

Private Sub Form_Load()
    ReDim frmWindows(0) As Form         'A new window frame
    Set FreeFrames = New Collection     'The board used to inform glazier
    FreeFrames.Add 0                    'Inform glazier
End Sub

Private Sub cmdNew_Click()
    Dim frmNewDoc As Form       'A new window
    Set frmNewDoc = New frmDoc  'Adjust to imitate frmDoc
    
    If FreeFrames.Count > 1 Then
        'A window was terminated
        Set frmWindows(FreeFrames(1)) = frmNewDoc       'Work glazier, work
        lstDocs.AddItem CStr(FreeFrames(1))             'Update showroom
        FreeFrames.Remove 1                             'Inform glazier
    Else
        'Gotta use the new window frame
        Set frmWindows(UBound(frmWindows)) = frmNewDoc  'Work glazier, work
        lstDocs.AddItem CStr(UBound(frmWindows))        'Update showroom
        FreeFrames.Remove 1                             'Inform glazier
        
        'A new window frame
        ReDim Preserve frmWindows(UBound(frmWindows) + 1) As Form
        FreeFrames.Add UBound(frmWindows)               'Inform glazier
    End If
    
    frmNewDoc.Show              'Show to customer
End Sub

Private Sub lstDocs_Click()
    frmWindows(CInt(lstDocs.ListIndex)).Show     'Show selected window to customer
End Sub

// Your brain is your weapon, do not waste it!!

Tak skal du have. Men når jeg lukker et vindue fjernes den ikke fra listen! Hvordan gør jeg det?

Weee! Jeg fik det til at virke!

Jeg brugte frmDoc's .Tag property til lukning!

Med Venlig Hilsen
Morten Torndahl Pedersen

Men tak for din hjælp!

Med Venlig Hilsen
Morten Torndahl Pedersen