[Resolvido]Adequação em Códigps para ToolTips (Balões de texto explicativo)

Dias atrás em uma ajuda a um colega do fórum, ele postou este exemplo o qual achei interessante na fução citada no Título do Tópico, porém necessito de uma pequena modificação no mesmo, se puderem ajuda fico grato.

Questão:
ao exibir o Balão o mesmo tem um Titulo e abaixo a descrição.. O Código do sistema repete o mesmo título para todos os balões exibidos ao repousar o mouse no objeto, modificando apenas a descrição.

Pergunto:
Como colocar um título para cada objeto?

Private Sub Form_Open(Cancel As Integer)

Set TTip = New clsToolTip
On Error Resume Next
Me.Combinação15.SetFocus

With TTip
 
    Call .Create(Me)
    
    .DelayTime = 5000
    .SetToolTipTitle "Filtrar informações", 1   >>>>> Título
    
    ' ToolTip text colors
    .ForeColor = 8421504
    .BackColor = 15790320
    
    .SetToolText Me.txtFiltro, "Coloque o critério que deseja filtrar e clique em Ok. " + vbNewLine _
    + "O filtro irá verificar em todos os campos o critério informado"
    
    .SetToolText Me.cmdOk, "Exibe resultado da busca"  >>>> Texto para o objeto cmdOK
    .SetToolText Me.cmdReport, "Exibe o relatório com resultado das buscas"  >>>> Texto para o objeto cmdReport    
    .SetToolText Me.txtCount, "Total de Registros encontrados na busca" >>>> Texto para o objeto txtCount
    
End With

End Sub

Cumprimentos.

Exemplo

Não sei se seria isto o que você deseja mas não serviria retirar o .SetToolTipTitle e colocar o título direto no principio da linha dando uma quebra?
Tipo:
.SetToolText Me.txtFiltro, "Título" + vbNewLine+ "Coloque o critério que deseja filtrar e clique em Ok. " + vbNewLine _
+ "O filtro irá verificar em todos os campos o critério informado"
Não sei se seria a melhor solução mas se não aparecer outra, apesar de dar mais trabalho acho que resolveria.

Seria uma solução paliativa, no entanto a vantagem do título é justamente a diferenciação em tamanho e tal.

Aguardaremos mais participações.

Cumprimentos.

A solução... Criar uma nova classe

Código:

Option Compare Database
Option Explicit
Dim TTip As clsToolTip, TTip1 As clsToolTip

Private Sub Form_Open(Cancel As Integer)
Set TTip = New clsToolTip
Set TTip1 = New clsToolTip
On Error Resume Next
Me.Combinação15.SetFocus

With TTip
    Call .Create(Me)
    .DelayTime = 5000
    .SetToolTipTitle "Filtrar informações", 1
    ' ToolTip text colors
    .ForeColor = 8421504
    .BackColor = 15790320
    .SetToolText Me.txtFiltro, "Coloque o critério que deseja filtrar e clique em Ok. " + vbNewLine _
    + "O filtro irá verificar em todos os campos o critério informado"
    .SetToolText Me.cmdOk, "Exibe resultado da busca"
    .SetToolText Me.cmdReport, "Exibe o relatório com resultado das buscas"
End With

With TTip1
    Call .Create(Me)
    .DelayTime = 5000
    .SetToolTipTitle "xxxxxxxxxx", 1
    ' ToolTip text colors
    .ForeColor = 8421504
    .BackColor = 15790320
    .SetToolText Me.txtCount, "Total de Registros encontrados na busca"
End With
End Sub


Cumprimentos.

Bom dia PILOTO

Poderia postar um exemplo já com
o título funcional?

Grato.

Eis:

http://maximoaccess.forumeiros.com/t12241-tooltips-baloes-de-texto-explicativo#95512

Cumprimentos.

Muito obrigado PILOTO!

O Fórum agradece o Retorno.