AppliPopup

Private Sub Text1_MouseDown(Button as integer, Shift as integer,
X as single, Y as single)
If Button = 2 then
Text1.Enabled = false
PopupMenu YourMenu
Text1.Enabled = True
End if
End Sub