prova così

codice:
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim m As Menu
    Set m = formMDI.mnuPrinc 'qui meti il menù che devi visualizzare
    If Button = 2 Then
        PopupMenu m
    End If
    set m = nothing
End Sub