Контекстное меню - VB

Формулировка задачи:

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

Решение задачи: «Контекстное меню»

textual
                            Листинг программы 
                        

                            Public Property Let Selected(ByVal NewValue As Boolean)
If NewValue = True Then
    UserControl.BackColor = 121212
    UserControl.NameProduct.BackColor = 121212
Else
    UserControl.BackColor = &H8000000E
    UserControl.NameProduct.BackColor = &H8000000E
End If
End Property

                        