Создавая собственные элементы управления с менюшками делает их более профессиональными. Всплывающие меню упрощают работу с контролами, а также прибавляют функциональности. Итак, посмотрим, как это делается:

Добавляем невидимое меню к контролу с одним или более пунктов. Эти пункты будут оставаться невидимыми до тех пор пока они не понадобятся. Добавляем метод PopupMenu в событие контрола MouseDown. Код должен соответствовать примерно следующему:

Private Sub UserControl_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
On Error GoTo Routine_Error
If Button = vbRightButton Then PopupMenu mnuFile
'mnuFile это имя невидимого основного меню

Routine_Error:
If Err.Number <> 0 Then MsgBox Err.Description, vbInformation, Err.Source
End Sub