请教一下，combobox右键弹出菜单编辑菜单的问题？

我用菜单编辑器添加了一个编辑菜单，用于复制、粘贴和删除ComboBox中条目，但是出现以下问题，百思不得其解：
右键弹出编辑菜单，选择其中任何一项，此时，居然又弹出一次菜单，然后我再选择其中一项，菜单才消失的，请问如何解决这个问题，谢谢。'弹出组合框编辑菜单
Private Sub cboPhoneNo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    If Button = 2 Then
       PopupMenu ComboEdit
       MenuFlag = 0
    End If
    
End Sub'弹出组合框编辑菜单
Private Sub TargetNo_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)    If Button = 2 Then
       PopupMenu ComboEdit
       MenuFlag = 1
    End IfEnd Sub'复制组合框项目
Private Sub ComboCopy_Click()    Clipboard.Clear
    If MenuFlag = 0 Then
       Clipboard.SetText cboPhoneNo.Text
    Else
       Clipboard.SetText TargetNo.Text
    End If
    
End Sub