multi-line tooltip text

[crptcblade]

Is that possible, if so how?

[HeSaidJoe]

not without some measure of help..ocx or you could do this.

Option Explicit

Private Sub Form_Load()
   
    Label1.AutoSize = True
    Label1.Alignment = 2
    Label1.Appearance = 0
    Label1.BackColor = &HC0FFFF
    Label1.BackStyle = 1 - Opaque
    Label1.BorderStyle = 1
   
End Sub

Private Sub Command1_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
     
     Dim msg$
     msg$ = "Tag tips for the beginner." & vbCrLf
     msg$ = msg$ & "Multil Line Tag Tips Made Easy" & vbCrLf
     msg$ = msg$ & "Think of the possibilities!"
         
     
     Command1.Tag = msg$

     Label1.Caption = Command1.Tag
     Label1.Top = Command1.Top + Command1.Height + Y
     Label1.Left = Command1.Left + X


     Label1.Visible = True
     
End Sub


Private Sub Label1_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
   
   Label1.Visible = False
   
End Sub

'use this code in any control near the label as you want to capture
'the event when off the label
Private Sub Form_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
   
   Label1.Visible = False
   
End Sub