TextBox İçerisinde Kendi PopUp Mönümüzü Göstermek

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