попробуй этот ocx
может поможет
но без трея

Ладно сейчас что нибудь найду

посмотри вот это

1) как там поменять заголовок tooltipa. там написано information, мне надо другое.

поменять

Public Sub TrayMouseMoveBalloonTip(frm As Form, sTip As String, sTitle As String, ttIcon As ttIconType, tStyle As ttStyle, iTimeout As Integer)
Dim lResult As Long
Dim lTipStyle As Long
lTipStyle = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
If tStyle = ttBalloon Then lTipStyle = lTipStyle Or NIF_INFO
Dim lMsg As Long


If frm.ScaleMode = vbPixels Then
lMsg = X
Else
lMsg = X / Screen.TwipsPerPixelX
End If
If blLive Then Exit Sub 'if true we have already fired the mousemove event.
With nid
.uFlags = lTipStyle 'set the tip style
If tStyle <> ttBalloon Then 'if standard set the tip
.szTip = sTip & Chr(0)
End If
.szInfo = sTip & Chr(0) ' if set to blank and balloon style, nothing is shown.
.szInfoTitle = sTitle & Chr(0)
.dwInfoFlags = ttIcon 'set the icon type for the balloon
End With
Shell_NotifyIcon NIM_MODIFY, nid 'modify the existing tray icon
blLive = True 'we have been here
' after specified time fire the event to hide tooltip if not hovering over icon.
lResult = SetTimer(frm.hWnd, 1, (iTimeout * 1000), AddressOf TrayUpdate)

End Sub

остальное буду смотреть
это не мой пример

3)
увеличь время задержки

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
TrayMouseMoveBalloonTip Form1, "hello Nastenka", "gfdgfd", TTNoIcon, ttBalloon, 1
End Sub

Настенька

я пока с цветами и шрифтами не разобрался
может попробую обьединить необьединимое
примеры на трей с примерами на tooltip
цвет понятно а зачем шрифты менять
если разные языки то нужен Unicode

michaelr@mobiline.info

хотя пока ничего не нашёл