[VB6] Gestione del flusso dell'applicazione con apertura MDI

[Marvellous]

Ecco il mio problemone:

ho un controllo listview (proprietà View=IvWReport)dove ho abilitata la propietà checkboxes in modo da far comparire la checkbox all'inizio di ogni elemento

l'utente deve spuntare gli elementi e fare clic sul tasto OK dove si attiva la seguente procedura

Private Sub bt_ok_Click()
Dim itmX As ListItem
Dim Chiave As String      
     If Me.ListView_Immobili.ListItems.Count > 0 Then
        For Each itmX In Me.ListView_Immobili.ListItems
            If itmX.Checked Then
                Chiave = itmX.Key
                Dim frm As New frm_g_immobile
                frm.PFS_ID_Immobile = Filtra_Chiave(Chiave)
                frm.show   
            End If
        Next
     End If
    Unload Me
End Sub

La procedura dovrebbe abire 'n' form di tipo 'frm_g_immobile' figli di un MDI.
iL PRBLEMA è che non appena parte il primo frm.show il controllo passa alla form 'frm_g_immobile' e quindi viene aperto solo una form anche nel caso di multiselezione.

Come posso fare?

[Marvellous]

Sono riuscito a risolvere ecco la soluzione, magari qualcuno potrebbe averne bisogno

Private Sub bt_ok_Click()
Dim itmX As ListItem
Dim Chiave As String
Dim frm As Form

     Me.Hide
     If Me.ListView_Immobili.ListItems.Count > 0 Then
        For Each itmX In Me.ListView_Immobili.ListItems
            If itmX.Checked Then
                Set frm = New frm_g_immobile
                Chiave = itmX.Key
                frm.PFS_ID_Immobile = Filtra_Chiave(Chiave)
                frm.Show
            End If
        Next
     End If
    Unload Me

End Sub