vb.net气泡 vba 气泡提示

求vb代码nbsp;实现程序在系统托盘显示图标和气泡!!!!Optionnbsp;Explicitnbsp;Constnbsp;MAX_TOOLTIPnbsp;Asnbsp;Integernbsp;=nbsp;64nbsp;Constnbsp;NIF_ICONnbsp;=nbsp;amp;H2nbsp;‘删除图标nbsp;Constnbsp;NIF_MESSAGEnbsp;=nbsp;amp;H1nbsp;Constnbsp;NIF_TIPnbsp;=nbsp;amp;H4nbsp;Constnbsp;NIM_ADDnbsp;=nbsp;amp;H0nbsp;‘添加图标到任务栏提示区nbsp;Constnbsp;NIM_DELETEnbsp;=nbsp;amp;H2nbsp;Constnbsp;WM_MOUSEMOVEnbsp;=nbsp;amp;H200nbsp;Constnbsp;WM_LBUTTONDOWNnbsp;=nbsp;amp;H201nbsp;Constnbsp;WM_LBUTTONUPnbsp;=nbsp;amp;H202nbsp;Constnbsp;WM_LBUTTONDBLCLKnbsp;=nbsp;amp;H203nbsp;Constnbsp;WM_RBUTTONDOWNnbsp;=nbsp;amp;H204nbsp;Constnbsp;WM_RBUTTONUPnbsp;=nbsp;amp;H205nbsp;Constnbsp;WM_RBUTTONDBLCLKnbsp;=nbsp;amp;H206nbsp;Constnbsp;SW_RESTOREnbsp;=nbsp;9nbsp;Constnbsp;SW_HIDEnbsp;=nbsp;0nbsp;Privatenbsp;Typenbsp;NOTIFYICONDATAnbsp;cbSizenbsp;Asnbsp;Longnbsp;hwndnbsp;Asnbsp;Longnbsp;uIdnbsp;Asnbsp;Longnbsp;uFlagsnbsp;Asnbsp;Longnbsp;ucallbackMessagenbsp;Asnbsp;Longnbsp;hIconnbsp;Asnbsp;Longnbsp;szTipnbsp;Asnbsp;Stringnbsp;*nbsp;MAX_TOOLTIPnbsp;Endnbsp;Typenbsp;就是了查看原帖
VB.net 里怎么实现气泡在窗体中随机移动？可以建立一个方向向量用来存储气泡运动vb.net气泡的方向（方向值每到一定时间随机产生）vb.net气泡，再定义一个表示速度的变量（如果要的是均速运动速度值就不变，否则也可以随机产生）。再用速度和方向值改变气泡位置。
我可以做个例子（qq:359394386）,但分不能太低。
VB桌面图标气泡怎么做？这个……好像不是windows气泡，是程序窗体。需要后台进程触发该窗体的发生。
如果要做windows气泡，那比较简单。windows气泡比如说插入新硬件的提醒等。
我记得VB里有一个控件可以做进程，就是托盘显示图标的那个控件可以做，但我不会用那个控件。
若是windows气泡，我查得一个方案，你自己看看吧【注意，代码中有行数标号】
01VERSION 5.00
02Begin VB.Form Form1
03Caption="Form1"
04ClientHeight=3120
05ClientLeft=60
06ClientTop=420
07ClientWidth=4680
08LinkTopic="Form1"
09ScaleHeight=3120
10ScaleWidth=4680
11StartUpPosition =3'窗口缺省
12End
13Attribute VB_Name = "Form1"
【vb.net气泡 vba 气泡提示】14Attribute VB_GlobalNameSpace = False
15Attribute VB_Creatable = False
16Attribute VB_PredeclaredId = True
17Attribute VB_Exposed = False
18Option Explicit
19'置前
20Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X AsLong, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)
21'获取鼠标坐标
22Private Declare Function GetCursorPos Lib "User32" (lpPoint As POINTAPI) As Long
23Private Type POINTAPI
24X As Long
25Y As Long
26End Type
27'添加托盘图标
28Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
29Const NIM_ADD = H0
30Const NIM_MODIFY = H1
31Const NIM_DELETE = H2
32Const NIIF_GUID = H4
33Const WM_MOUSEMOVE = H200
34Const WM_RBUTTONUP = H205
35Private Type NOTIFYICONDATA
36cbSize As Long
37hWnd As Long
38uID As Long
39uFlags As Long
40uCallbackMessage As Long
41hIcon As Long
42szTip As String * 128
43dwState As Long
44dwStateMask As Long
45szInfo As String * 256
46Timeout As Long
47szInfoTitle As String * 64
48dwInfoFlags As Long
49End Type
50Private TuoPan As NOTIFYICONDATA
51Private Sub Form_Load()
52SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, H10 Or H40 Or H2 Or H1 '置前
53'添加托盘图标
54With TuoPan
55.cbSize = Len(TuoPan)