弹出式菜单的问题

我点击一个按钮，弹出一个菜单。
如果选中菜单一项，则弹出对应窗体。
如果鼠标点击弹出式菜单外任何地方，则弹出式菜单消失。
现在有个问题，弹出式菜单消失以后，再次点击按钮，菜单就不出来了。
代码：
Private Sub TestType_Click()
Dim i&, N As Long
Dim mname As String
Dim MyChar

      
    If (TestTypeFlag = False) Then
                TestTypeFlag = True
        
        FileName = App.Path & "\123.txt"
        Open FileName For Input As #1
        
        i = 1
        Do While Not EOF(1)
             Input #1, MyChar
            '
            
                Load MenuSub(i)
            
            MenuSub(i).Caption = MyChar
   
             i = i + 1
        Loop
        Close #1
        
        ''''''''''''''''''''''''''''''''''''

        MenuCount = i - 1
          MenuSub(0).Visible = False
         
           Me.PopupMenu MenuTestType
        End If
       '
End Sub
请问高手，如何解决？谢谢！