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