se você quiser mostrar um menu popup para um texto, um menu de sistema (default) será mostrado primeiro e o seu menu só aparecerá quando o menu default for fechado. Para contornar este problema:
Codigo:
Private Sub Text1_MouseDown(Button As Integer, _
Shift As Integer, X As Single, Y as Single)
If Button = 2 Then Text1.Enabled = False PopupMenu myMenu
Text1.Enabled = False
End If
End Sub