Sub DoStuff(lv As ListView)
'do stuff with lv here
End Sub
CodeModule.DoStuff(lv)
Type MyObject(lv As ListView, alv(20) As ListView, blah As float)
Dim mo As MyObject
'fill up object(s) with exciting things
CodeModule.DoStuff(mo)