Perguntas Dúvida desenhar botão com F3

Pessoal, bom dia!

Preciso de uma ajuda, estou desenhando a tela abaixo, mas preciso fazer um botão com F3 -> vou perquisar Transportadores.

Podem me ajudar?

Exemplo:

Label: Compo Texto para pesquisar e F3

que me abre o campos de pesquisa da tabela.

User Function SomaiCTE()

Private cGDTF := Space(1)
Private cGDTI := Space(1)
Private cGTranspor := Space(1)
Private cSData := Space(1)
Private cSData := Space(1)
Private cSTranspor := Space(1)
Private dGet1 := CtoD(Space(08))
Private dGet2 := CtoD(Space(08))
Private cGet2 := Space(09)

SetPrvt("oFont1","oFont2","oDPesquisa","cGPesquisa","oSData","oSTransportador","oSay2","oGDTI","oGTransportador")
SetPrvt("oBPesquisar","oGDTF")

oFont1 := TFont():New( "Arial",0,-16,,.T.,0,,700,.T.,.F.,,,,,, )
oFont2 := TFont():New( "Arial",0,-11,,.T.,0,,700,.T.,.F.,,,,,, )

oDPesquisa := MSDialog():New( 091,279,229,873,"Pesquisa",,,.F.,,,,,,.T.,,,.T. )
cGPesquisa := TGroup():New( 000,001,064,292,"Pesquisar",oDPesquisa,CLR_BLACK,CLR_WHITE,.T.,.F. )

oSData := TSay():New( 009,013,{||"Data Inicial:"},cGPesquisa,,oFont1,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,048,008)
oGDTI := TGet():New( 008,064,{|u| If(PCount()>0,dGet1:=u,dGet1)},cGPesquisa ,088,008,"@!",,CLR_BLACK,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","","dGet1")


oSay2 := TSay():New( 009,154,{||"Data Final:"},cGPesquisa,,oFont1,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,043,008)
oGDTF := TGet():New( 008,195,{|u| If(PCount()>0,dGet2:=u,dGet2)},cGPesquisa,090,008,'',,CLR_BLACK,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","","dGet2")


oSTranspor := TSay():New( 032,005,{||"Transportador:"},cGPesquisa,,oFont1,.F.,.F.,.F.,.T.,CLR_BLACK,CLR_WHITE,060,008)
oBPesquisa := TButton():New( 032,265,"...",cGPesquisa,,020,010,,,,.T.,,"",,,,.F. )
//@ 032,250 MSGET oGet2 VAR cGet2 SIZE 020,010 Of oDPesquisa PIXEL PICTURE "@!" F3 "CTT" Valid NaoVazio()

oGTranspor := TGet():New( 032,065,{|u| If(PCount()>0,cGTransportador:=u,cGTransportador)},cGPesquisa,192,008,'',,CLR_BLACK,CLR_WHITE,,,,.T.,"",,,.F.,.F.,,.F.,.F.,"","cGTransportador",,)


oBPesquisa := TButton():New( 048,233,"Pesquisar",cGPesquisa,{ || oBPesquisarbAction },053,012,,oFont1,,.T.,,"",,,,.F. )


oDPesquisa:Activate(,,,.T.)

Return

Valeu Luiz!