ЧТО я сделал не так?

[ChelDm]

То что кривые руки я уже наслушался, пожалуйста ответьте нормально

[Sirik]

В пункте меню Пункты (mnulistcontext) убери индекс и всё будет ок

[RayShade]

Найди 3 отличия:

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

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    Form1.PopupMenu Form1.mnulistcontext(1), vbPopupMenuRightButton
End If
End Sub

[Sirik]

Найди 3 отличия:

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

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
    Form1.PopupMenu Form1.mnulistcontext(1), vbPopupMenuRightButton
End If
End Sub

Ага, правильно: или индекс удалить, или вызов делать с индексом

[ChelDm]

Спасибо с приятными людьми приятно и общаться, прийду домой переделаю, щас не возможности переделать