Escribe esto en el evento MouseUp del control que quieras que aparezca e menu:
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnuTuMenu, 2
End If
´//Tambien puedes utilizar al valor 2 en vez
´//de la constante vbRightButton
End Sub
Don la palabra "mnuTuMenu" va hacer el nombre de control(el valor de la propiedad Name) del Menu que quieras que se ejecute.....