求 气球提示框的API 非托盘用

用气球提示框代替 信息框 用   比如按  按钮就在按钮处弹出气球提示框 用处是这样

求这个API的函数 名  和具体参数能详细介绍点更好  谢谢

CreateWindow(
            szwindowsname,
            NULL,
            WS_POPUP | TTS_NOPREFIX | TTS_ALWAYSTIP | (isBalloon? TTS_BALLOON : 0) ,
            CW_USEDEFAULT, CW_USEDEFAULT,
            CW_USEDEFAULT, CW_USEDEFAULT,
            NULL, NULL,
            NULL, //m_hInst,
            NULL);

加三个Command1,Command2,Command3 '模块 Option Explicit '使用高分辨率图标所用的API Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal dwImageType As Long, ByVal dwDesiredWidth As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long Private Const LR_LOADFROMFILE = &H10 Private Const LR_LOADMAP3DCOLORS = &H1000 Private Const IMAGE_ICON = 1 '系统托盘 Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long Private Const NIF_MESSAGE = &H1 Private Const NIF_ICON = &H2 Private Const NIF_TIP = &H4 Private Const NIF_STATE = &H8 Private Const NIF_INFO = &H10 Private Const NIM_ADD = &H0 Private Const NIM_MODIFY = &H1 Private Const NIM_DELETE = &H2 Private Const NIM_SETFOCUS = &H3 Private Const NIM_SETVERSION = &H4 Private Const NIM_VERSION = &H5 Private Const WM_USER As Long = &H400 Private Const NIN_BALLOONSHOW = (WM_USER + 2) Private Const NIN_BALLOONHIDE = (WM_USER + 3) Private Const NIN_BALLOONTIMEOUT = (WM_USER + 4) Private Const NIN_BALLOONUSERCLICK = (WM_USER + 5) Private Const NOTIFYICON_VERSION = 3 Private Const NIS_HIDDEN = &H1 Private Const NIS_SHAREDICON = &H2 Private Const WM_NOTIFY As Long = &H4E Private Const WM_COMMAND As Long = &H