textBoxコントロールを右クリックしたとき
PopupMenuを表示したいのですが、Eventが巧く取れません。
2回クリックしない反応しません｡
バグなのでしょうか？　
どなたかお願いします。

Private Sub txtTheme_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then　'右クリックをチェック
PopupMenu RightClick　’ポップアップメニュー表示
End If
End Sub