Hi

Is it possible to add to the floating menu or replace the menu with your own?
Thanks in advance for any advice.

OK, done it - thus -

Private Sub mc1_BeforeClick(ByVal Button As Long, ByVal Shift As Long, ByVal X As Long, ByVal Y As Long, Cancel As Boolean)

'try to replace standard menu
Select Case Button
Case geoRightButton
PopupMenu MM.PopMenu_Map
Cancel = True
End Select

End Sub


Man I love this map...