Runtime Error 91

[Tommy101]

Function ShowDlg(ListView As ListView, ByVal Title As String) As Boolean
    LVExporter.ListView = ListView
    
    Dim selCount As Long, i As Long
    'Determine count of selected entries
    For i = 1 To ListView.ListItems.Count 
        If ListView.ListItems(i).Selected Then selCount = selCount + 1
    Next i

Error Message: Runtime Error 91, Object Vairable or With Block Variable not Set.

When ever i run this code in another Poject than mine it works fine.

*The Code is in a ActiveX Control.

Can anyone give me some ideas of how the Code should be?