Странное поведение контекстного меню

[viter.alex]

Повесил я контекстное меню на клик левой клавишей по иконке в трее:

Код: Выделить всё

  Private Sub NotifyIcon1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseClick
    If e.Button = Windows.Forms.MouseButtons.Left Then _
      ctxtmnNotify.Show(System.Windows.Forms.Cursor.Position, ToolStripDropDownDirection.AboveLeft)
  End Sub

Для формы поставил свернутое состояние и не отображать в панели задач.
Первый клик проходит нормально, а потом вместе меню в панели задач появляется окно (обведено красным):

Что это такое? Откуда берется?

[viter.alex]

Только что задал свойство Text для контекстного меню, и этот текст появился на кнопке в панели задач. Т.е. это окно контекстного меню, но зачем его показывать на панели задач? А свойства ShowInTaskbar у него нет

[1Steps]

Код: Выделить всё

notifyIcon1.ContextMenu = Me.contextMenu1

Не о чем не говорит?

[viter.alex]

Ни о чем не говорит. Я специально убрал контекстное меню с иконки, чтобы вызывать его только левой кнопкой. У программы не предполагается наличие окна: работать нужно с чужой программой, поэтому я посчитал целесообразным действовать через NotifyIcon. А чтобы было удобнее, все действия с иконкой делать левой кнопкой мыши.

[1Steps]

Попробуй так

Код: Выделить всё

Imports System.Reflection

....................

    Private Sub NotifyIcon1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseUp
        If e.Button = MouseButtons.Left Then
            Dim mi As MethodInfo = GetType(NotifyIcon).GetMethod("ShowContextMenu", BindingFlags.Instance Or BindingFlags.NonPublic)
            mi.Invoke(notifyIcon1, Nothing)
        End If
    End Sub

[1Steps]

Только не забудь

Код: Выделить всё

notifyIcon1.ContextMenu = Me.contextMenu1

У меня работает и по левой и по правой кнопке.