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?

[pnish]

I don't know if this has anything to do with your problem, but possibly because you're using an object type as a variable name, ie ListView As ListView, VB is somehow getting confused. Try this:

Function ShowDlg([b]MyListView[/b] As ListView, ByVal Title As String) As Boolean

Change all your references to MyListView. Just a guess

[Tommy101]

It still gives me the same Error.

[lintz]

Which line does the error occur on?

[Tommy101]

For i = 1 To ListView.ListItems.Count

That one

[pnish]

Perhaps you need to do this:

[b]Set[/b] LVExporter.ListView = ListView

And also you need to change this line:

For i = [b]0[/b] To ListView.ListItems.Count [b]-1[/b]

EDIT: Ignore the first bit of code, that's got nothing to do with it. Sorry.

[Tommy101]

It still gives me the stupid Runtime Error 91

[Forge]

Currently I am working on listboxes myself. I am no wizzy about listboxes or ActiveX controls, I ain't even sure your dealing with a listbox.

For i = 1 To ListView.ListItems.ListCount

Maybe that works, best wishes Forge.

[Tommy101]

In a ListView you can not use ListCount only Count, but thanks for your help

[brucevde]

Show the code that calls this function. The problem lies there.