[Resolvido]Expandir Campo Memo

Bom amigos.
Tenho um campo Memo em um SubFormulario tipo Folha de Dados que mostra os registros como se fosse uma planilha. Gostaria de um código que, colocado num botão, expandisse o Campo Memo para ler todo o seu conteudo, e que ao clicar de novo retornasse a uma linha apenas. Alguém tem uma sugestão?

Ola;

Em vez de usar botão, o que nós fazemos que fica mais profissional, é utilizar no evento duplo click de campo memo;

Private Sub SeuCampoMemo_DblClick(Cancel As Integer)
    DoCmd.RunCommand acCmdZoomBox
End Sub

Ok. JPaulo. Resolvido. Mais uma vez muito obrigado pela ajuda.
Walter

Obrigado pelo retorno amigo, o forum agradece.