Дело вот в чем. Я повесил на контрол "Список", контекстное меню. Список заполнен не полностью (т. е. не на весь контрол, а только на половину). Как мне сделать так, чтобы в границах контрола, там где нет элементов, контекстное меню не открывалось, а там где есть, открывалось..?

Может у кого есть готовое решение, модуль...

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

Все, решил... рассказываю....
Private Sub Список1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'255 - ширина моего 1-го элемента списка, лучшебы конечно ширину брать автоматически, но я пока незнаю где...
a = CInt(Y / 255)
If (Y / 255) - CInt(Y / 255) > 0 Then a = a + 1
If Список1.ListCount < a Then
'Ставим фокус на заголовок Списка
Список1= Список1.ItemData(0)
'Настраиваем контекстное меню
Application.CommandBars("Контекст1").Controls("Изменить").Enabled = False
Application.CommandBars("Контекст1").Controls("Удалить").Enabled = False
Else
'Настраиваем контекстное меню
Application.CommandBars("Контекст1").Controls("Изменить").Enabled = True
Application.CommandBars("Контекст1").Controls("Удалить").Enabled = True
End If
End Sub