vb气泡提示的类，文字可换行，只要设置对应的控件即可'使用范例： 'Dim tooltip As New Class1 'Set tooltip.ParentControl = Text1 '气泡应用于哪个控件(要有Hwnd) 'tooltip.ToolTipTitle = "气泡标题" '气泡标题(不允许换行/字体粗体) 'tooltip.ToolTipText = "气泡内容" & vbCrLf & "123" '气泡内容(允许换行) 'tooltip.Create '创建气泡 需要带工程下载的请访问此地址：http://commonprogrames.googlecode.com/files/clsTooptip.rar