[Resolvido]Abrir janela de Dialogo através de código em módulo (Menu do SysBase)

Buscar(Me.hWnd, "Inserir PDF", strPastaInicial, _
"Arquivos PDF (*.*)" & vbNullChar & "*.pdf; *.gif; *.jpg")

Objeto Form
Objeto Report

Use a propriedade hWnd para determinar o identificador (identificador: um valor Inteiro exclusivo (Longo 
em um ambiente de 32 bits) usado para identificar e acessar uma janela 
Formulário ou Relatório. Use a propriedade hWnd para retornar o 
identificador.) (um valor exclusivo de Inteiro 
Longo (tipo de dados Longo: um tipo de dados 
básico que contém inteiros grandes. A variável Long é armazenada como um número 
de 32 bits no intervalo de - 2.147.483.648 a 2.147.483.647.)) 
atribuído pelo Microsoft Windows à janela atual. Long de 
leitura/gravação.
Então para utilizarmos o código em um módulo é necessário informarmos este identificador da form, mas como faremos isso se não podemos utilizar a propriedade Me em um módulo?

Simples, referenciando o form na expressão:


Sub AbrePDF()
Dim strCaminho As String, strPastaInicial As String
strPastaInicial = CurrentProject.Path & "PDF"
strCaminho = Buscar(Forms!ZMainMenu.HWND, "Inserir PDF", strPastaInicial, _
"Arquivos PDF (*.*)" & vbNullChar & "*.pdf; *.gif; *.jpg")
1: Forms!ZMainMenu.SetFocus
End Sub



Cumprimentos.