首先下载DSAPI.dll。并在项目中引用。

该功能包括在DSAPI1.0.1.1及更高版本号，DLL请到本人资源里查找。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Dim F As New DSAPI.DS提示气泡(Me)        With F            .背景色 = Color.Red            .气泡最大宽度 = 300            .图标 = Bitmap.FromFile("G:\图标_Icon\png\png-0047.png")            .文字颜色 = Color.DarkBlue            .显示方向 = DSAPI.DS提示气泡.方向.下            .字体 = New Font("微软雅黑", 10)            .字体清晰度 = Drawing.Text.TextRenderingHint.AntiAliasGridFit            .文本 = "DS提示气泡" & vbCrLf & "气泡弹出时不抢占原焦点"        End With        AddHandler F.气泡被点击, AddressOf Mevent        F.显示气泡(Button1.PointToScreen(New Point(0, 0) + New Point(0, Button1.Height)))    End Sub    Public Sub Mevent(ID As Integer)        MsgBox("ID为" & ID & "的气泡被点击了")    End Sub

注：应网友要求，自己主动消失功能已经提供，当设置‘自己主动消失时间“为非零时，气泡将在指定时间之后自己主动消失。