[Resolvido]Passar nome de objeto para uma função e poder referenciar o mesmo na função

Amigos.. como passar o nome de uma listbox por exemplo, para uma função e poder carregar a mesma através da função?

'---------------------------------------------------------------------------------------
' Procedure     : Listar
' Author        : Harysohn P. Pina (PILOTO) - Harysohn@hotmail.com
' Fórum         : Fórum Máximo Access -  http://maximoaccess.forumeiros.com/
' Date          : 11/09/2013
' Comentários   : Lista os processos ativos no Windows
'---------------------------------------------------------------------------------------
Public Function Listar(NomeLista As String, NomeForm As frm)
Dim colProcessList
Dim Lista As Object
MsgBox Forms!("& NomeForm & ")![ " & NomeLista & "].Name
Set colProcessList = GetObject("Winmgmts:").ExecQuery("Select * from Win32_Process")
'-----------------------------------------------------------------------
'Procura por todos os processos ativos adiquiridos pelo método GetObject
'-----------------------------------------------------------------------
For Each objProcess In colProcessList
    '------------------------------------
    'Adiciona na lista o nome do processo
    '------------------------------------
    Lista.AddItem (objProcess.Name)
Next
'--------------
'Limpa o objeto
'--------------
Set colProcessList = Nothing
End Function


Cumprimentos.

Claro amigão.. olha que bobeira a minha eu estava tentando como Object.... enquanto o correto era control.

Obrigado!!