No way to make a control tip multi-line
A workaround might be showing and hiding a label.
This could use some polish
Capture.JPG
Option Explicit
Private Sub UserForm_Initialize()
With Me
.Label1.Top = .TextBox1.Top + 5
.Label1.Left = .TextBox1.Left + 5
.Label1.Width = .TextBox1.Width - 5
.Label1.Caption = "This is" & vbCrLf & "a test" & vbCrLf & "of a multi-line 'tooltip'"
.Label1.AutoSize = True
End With
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label1.Visible = False
End Sub
Private Sub CommandButton1_Click()
UserForm1.Hide
Unload UserForm1
End Sub
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label1.Visible = True
End Sub
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Me.Label1.Visible = False
End Sub
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Me.Label1.Visible = False
End Sub
Private Sub Label1_Click()
Me.Label1.Visible = False
End Sub
Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.Label1.Visible = False
End Sub