Option Explicit
Dim flag As Boolean
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub TextBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
If flag = True Then Exit Sub
flag = True
Const msg As String = "This is the most important message you've ever read." & vbLf & _
"This is your CustomControlTipText with linefeed." & vbLf & _
"Major drawback is it will only be shown once. Perhaps you can invent a system to enhance this." & vbLf & vbLf & _
"This message will delete itself in 7 seconds:-)" & vbLf & _
"Or you can get rid of it by clicking OK!"
CreateObject("WScript.Shell").Popup msg, 7, "Title"
TextBox1.SetFocus
End Sub