Hello everybody. I have an application that displays the tray balloon using the standard code (below). This works good on all Windows versions. I just noticed that on Windows 10 the balloon displays as expected except that in addition to the text, title that are always displayed Windows displays the "File description" variable (In VB6 when making a project you can enter some information that get compiled into the description of the executable). If I clear that variable then Windows 10 displays the exectuable name instead. I tried saving an empty space in the variable and it still displays the executable. Anybody know how to remove this executable name? As a last resort I can save a "." but it won't look as nice.

So in summary

Before Windows 10 the tray balloon would display (which is what I want)
Title
Message

Since Windows 10 the tray balloon displays
Title
Message
File Description or Executable Name


Code:
Public Sub ShellTrayIconAdd(hWnd As Long, hIcon As StdPicture, sToolTip As String)
   
On Error Resume Next
   
If NOTIFYICONDATA_SIZE = 0 Then SetShellVersion

With nid
    .cbSize = NOTIFYICONDATA_SIZE
    .hWnd = hWnd
    .uID = APP_SYSTRAY_ID
    .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP Or NIF_INFO
    .dwState = NIS_SHAREDICON
    .hIcon = hIcon
    .szTip = sToolTip & vbNullChar
    .uTimeoutAndVersion = NOTIFYICON_VERSION
    .uCallbackMessage = WM_MYHOOK
End With

'add the icon ...
If Shell_NotifyIcon(NIM_ADD, nid) = 1 Then
    '... and inform the system of the
    'NOTIFYICON version in use
    Call Shell_NotifyIcon(NIM_SETVERSION, nid)
    'prepare to receive the systray messages
    Call SubClass(hWnd)
End If
Thank you