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

codice:
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