首先下载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

watermark/2/text/aHR0cDovL2Jsb2cuY3Nkbi5uZXQv/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70/gravity/Center" alt="">

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