>I need the control be enabled
> but without popup menu

Is it cause you want to display your own popup menu? If so, try this:

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
Text1.Enabled = False
Text1.Enabled = True
Me.PopupMenu mnuTest
End If
End Sub