Private Type MyMessage
   m_type as MessageType 'enum?
   m_parameter as string
   ...
End Type

Private Type AppMessages
  m_MyMessages() As MyMessage
End Type

Public app_messages As AppMessages

'Инициализация

ReDim app_messages.m_MyMessages(0 To 0) 'очистка-0-й элемент не используется

'Добавление
    Dim new_message As MyMessage
    with new_message
      .m_type =...
      ...
    endif
     ReDim Preserve app_messages.m_MyMessages(0 To UBound(app_messages.m_MyMessages)) + 1)
     app_messages.m_MyMessages(UBound(app_messages.m_MyMessages)) =new_message
    'сюда же сразу вызов в трей если нет текущего активного сообщения
    If UBound(app_messages.m_MyMessages)=2 then 'кроме добавленного сообщения ничего нет 
        'показать в трей app_messages.m_MyMessages(1)
    end if

'Удаление (пусть первого элемента)
   if UBound(app_messages.m_MyMessages)>2 then '0-не используется, 1-удаляемое, 2-следующее и т.д.
     'сдвиг на единицу к началу
     for i=1 to UBound(app_messages.m_MyMessages)-1
       app_messages.m_MyMessages(i)=app_messages.m_MyMessages(i+1)
     next
   endif
   'удаляем последнее (сдвинуто вперед) 
   ReDim Preserve app_messages.m_MyMessages(0 To UBound(app_messages.m_MyMessages)) - 1)
    'сюда же сразу вызов в трей если чего-то осталось
    If UBound(app_messages.m_MyMessages)>1 then 'есть сообщение хотя бы одно 
       'показать в трей app_messages.m_MyMessages(1)
    end if

ReDim app_messages.m_MyMessages(0 To 0) 'очистка-0-й элемент не используется

'Удаление (пусть первого элемента)
   if UBound(app_messages.m_MyMessages)>1 then '0-не используется, 1-удаляемое, 2-следующее и т.д.
     'сдвиг на единицу к началу
     for i=1 to UBound(app_messages.m_MyMessages)-1
       app_messages.m_MyMessages(i)=app_messages.m_MyMessages(i+1)
     next
   endif

app_messages.m_MyMessages(i).m_type =app_messages.m_MyMessages(i+1).m_type 
app_messages.m_MyMessages(i).m_parameter =app_messages.m_MyMessages(i+1).m_parameter
... 

Private Type AppMessages
  m_MyMessages() As MyMessage
End Type

Public app_messages As AppMessages

Public AppMessages() As MyMessage

Public AppMessages() As MyMessage
'========
  'инициализация массива сообщений в трей
  ReDim AppMessages(0 To 0) 'очистка-0-й элемент не используется
'========

Public Sub AddTrayMessageToQueue(new_message As MyMessage)
  'добавление сообщения в конец массива
  ReDim Preserve AppMessages(0 To UBound(AppMessages) + 1)
  AppMessages(UBound(AppMessages)) = new_message
  
  'вывод в трей сообщения, если нет текущего активного
  If UBound(AppMessages) = 1 Then 'кроме добавленного сообщения ничего нет
    'показать в трей AppMessages(1)
    ShowTrayNotification AppMessages(1)
  End If
End Sub

Public Sub RemoveTrayMessageFromQueue(need_action As Boolean)
  'если пользователь кликнул на Notification, то производятся действия согласно сообщению
  'NIN_BALLOONUSERCLICK
  If need_action Then
    With AppMessages(1)
      'выполнение команд
    End With
  End If
  'если оно закрылось по таймауту, было закрыто крестиком либо из кода приложения, то ничего не делаем
  'NIN_BALLOONTIMEOUT либо NIN_BALLOONHIDE
  
  'удаляем сообщение из очереди сдвигом элементов массива на единицу и удалением крайнего элемента
  'сдвиг на единицу если оно не единственное
  If UBound(AppMessages) > 1 Then '0-не используется, 1-удаляемое, 2-следующее и т.д.
    Dim i As Long
    For i = 1 To UBound(AppMessages) - 1
       AppMessages(i) = AppMessages(i + 1)
    Next
  End If
  
  'удаляем старший элемента массива
  ReDim Preserve AppMessages(0 To UBound(AppMessages) - 1)
  
  'если в очереди остались сообщения, то выводим первое из них в трей
  If UBound(AppMessages) > 0 Then
    'показать в трей AppMessages(1)
    ShowTrayNotification AppMessages(1)
  End If
End Sub

'========

    Case WM_MySysTrayNotify 'уведомления Tray -вместо WM_MOUSEMOVE
...
        Case NIN_BALLOONUSERCLICK 'пользователь кликнул по Notification
          RemoveTrayMessageFromQueue True
        Case NIN_BALLOONTIMEOUT 'пользователь закрыл Notification крестиком либо выход по таймауту
          RemoveTrayMessageFromQueue False
        Case NIN_BALLOONHIDE 'от приложения поступила команда убрать Notification
          RemoveTrayMessageFromQueue False