Postada em 31/08/2010 16:03 hs
voce pode usar a propriedade ToolTiptext para carrega os dados,ao colocar o mouse sobre o controle apareciria as informações carregadas ou use a propriedade mousemove
Coloque num Form uma caixa de texto e dois Label
Private Sub Form_Load()
Label1.ToolTipText = "TESTE"
Label2.ToolTipText = "FUNCIONA"
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = Label1.ToolTipText
End Sub
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Text = Label2.ToolTipText
End Sub
|
