Dim tip As New CTips tip.Style = TTBalloon tip.Icon = 1 '图标类型 tip.Title = ":-D" '标题 tip.TipText = "嘿嘿嘿 " & Chr(10) & "给爷换行 " '内容 tip.PopupOnDemand = True tip.Interv al = 1000 tip.CreateToolTip Text1.hwnd '气泡所在窗口句柄 tip.Show Set tip = Nothing al = 1000 tip.CreateToolTip Text1.hwnd '气泡所在窗口句柄 tip.Show Set tip = Nothing