Hola,pues la unica que se me ocurre asi de una ,es que hagas algo asi:
Código:
Private Sub mnuGuardar_Click()
Dim i As Integer
If mnuFicheros.Visible = True Then
For i = 1 To 100
Me.PopupMenu mnuFicheros, , 0, 0
Next
End If
End Sub
cambiale el nombre al menu y las cordenadas del mismo y listo,al hacer clic te lo va a seguir mostrando por 100 veces.podes cambiarle el for por otra cosa y que nunca se pueda ocultar...
saludos.