Exibir texto ao passar cursor

[Amaral]

Preciso de uma macro que exiba determinado texto ao passar com o cursor sobre um label (inserir comentário).
O texto muda, tenho duas opções, por isso utilizo uma macro. Procurei na internet e achei algo do tipo HelpText, mas não consegui utilizar.
Exemplo.

If k = 1 Then
 oDialog.Label1...?.. = "peixe"
Else
 oDialog.Label1...?.. = "ave"
End If

Ao passar o cursor sobre o label, nesse caso botão, aparece um comentário.

[schiavinatto]

Ola @Amaral, poste um exemplo básico deste arquivo, use Editar sua pergunta e clique no ícone clipe para anexar.

[schiavinatto]

@Amaral, disse “…um label…” é botão criado por ti ?

[schiavinatto]

@Amaral, poste a Macro…Com base em que que o texto muda ?

[schiavinatto]

@Amaral, este é o Texto de ajuda ?

Esta em nas Propriedades em Geral / Texto de ajuda.

[Amaral]

Sim, isso eu seu, mas eu que utilizar uma macro pois eu quero ter a opção de colocar Peixe ou Ave e isso não é possível com o texto de ajuda.

[Amaral]

Obrigado. Achei a resposta. Grato.

[Amaral]

Obrigado. Fim muita pesquisa e cheguei a seguinte solução:
oForm_Movimento.getControl (“LabelINEP”).Model.HelpText = “Prof. Amaral”
Aqui utilizei .Model.HelpText que corresponde ao texto de ajuda.
Fonte: LibreOffice 3 Basic Guide (pesquisa Google baixar arquivo lo_basic.odt)