Private nArrIDs() As Long
Private bListDone As Boolean
 
Public Property Get Get_IDList() As Variant
    'Rückgabe der ID-Liste
    Get_IDList = nArrIDs()
End Property
 
Public Property Get IsFertig() As Boolean
    'Rückgabe ob das Formular alle nötigen Daten gesammelt hat
    IsFertig = bListDone
End Property
 
Private Sub cmdOK_Click()
'Rückgabe des Arrays und Schliessen der Form ...
Dim i As Integer
 
With Me.flexSelected
    If .Rows > 1 Then
        ReDim nArrIDs(.Rows - 2)
 
        For i = 0 To .Rows - 2
            nArrIDs(i) = CLng(Val(.TextMatrix(i + 1, 0)))
        Next i
    End If
End With
 
bListDone = True
 
Unload Me
 
End Sub

Dim nArr As Variant
 
Unload frmSelectionMulti
With frmSelectionMulti
    .SetMode = 1
    .Show 1  'Modal bei MDIChild nicht möglich
 
    If .IsFertig = True Then
       nArr = .Get_IDList() 
       If IsArray(nArr) Then
            'Array Verarbeiten        
       End If                    
    End If
End With

Dim nArr As Variant
 
Unload frmSelectionMulti
With frmSelectionMulti
    .SetMode = 1
    .Show
 
    Do While .IsFertig = False
        'Hier muss natürlich noch ne Prüfung rein ob das Formular einfach 
        ' geschlossen wurde... 
        DoEvents
    Loop
 
    nArr = .Get_IDList
 
    If IsArray(nArr) Then
        'Array verarbeiten
    End If
End With