Artigos .NET ToolTipText diferente
Uma forma diferente de mostrar informação de um Label ou text, sendo mais rápido que o tradicional ToolTipText.
Serve tb para vermos varias técnicas com objetos TEXT, vale a pene vcs verem.


1) Coloque este código no evento MouseMove

Private Sub lbl_Trem_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

If lbl_Trem(Index).Tag = Empty Then
   txt_mensagem.Visible = False
   Exit Sub
End If

If lbl_Trem(Index) <> Empty Then
   txt_mensagem.Visible = True
   If lbl_Trem(Index).Alignment = 1 Then
      txt_mensagem = "Trem : " & Trim(lbl_Trem(Index)) & " (Invert)" & vbCrLf & Trim(opt_Ocor(lbl_Trem(Index).Tag).Caption)
   Else
      txt_mensagem = "Trem : " & Trim(lbl_Trem(Index)) & vbCrLf & Trim(opt_Ocor(lbl_Trem(Index).Tag).Caption)
   End If
   txt_mensagem.Top = lbl_Trem(Index).Top
   a = lbl_Trem(Index).Left
   If lbl_Trem(Index).Left > 12000 Then
      txt_mensagem.Left = lbl_Trem(Index).Left - txt_mensagem.Width
   Else
      txt_mensagem.Left = lbl_Trem(Index).Left + lbl_Trem(Index).Width
   End If
Else
   txt_mensagem.Visible = False
End If
End Sub

2) Crie um text com o nome de txt_mensagem, propiedade MUltiline = True

3) Na propiedade Tag do lbl_trem voce carrega um valor de um banco de dados veja exemplo abaixo.

Connect
   MySQL = "SELECT * from tbclientes"
   rs.Open MySQL, db, adOpenKeyset, adLockReadOnly
   rs.MoveFirst
   Do While rs.EOF = False
      If IsNull(rs!valor) Then
         lbl_numlinha(rs!posicao).tag = rs!tag
      End If
disconnect
 
 
Espero ter ajudado
Abraços.