Зависает форма

Function WindowProc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim n As Long
  
  n = CallWindowProc(OldWndProc, hwnd, Msg, wParam, lParam)
  Select Case Msg
    Case WM_COMMAND
      Select Case LowOrd(wParam)
        Case 2
          MsgBox "Î ïðîãðàììå"
 
          
        Case 30
          
          frmDirectorySetting.Show vbModal
      End Select
  End Select
  WindowProc = n
  
End Function
Public Sub InitMenu()
  Dim hPopupMenu As Long
  
  hwnd = FindWindow(vbNullString, "FLEX")
  hMenu = CreateMenu()
  hPopupMenu = CreatePopupMenu()
  AppendMenu hMenu, MF_STRING Or MF_POPUP, hPopupMenu, "Ïðîôèëü"
  AppendMenu hMenu, MF_STRING, 2, "Î ïðîãðàììå"
  AppendMenu hPopupMenu, MF_STRING, 10, "Ñîçäàòü ïðîôèëü..."
  AppendMenu hPopupMenu, MF_STRING, 20, "Íàñòðîèòü ïðîôèëü..."
  AppendMenu hPopupMenu, MF_SEPARATOR, 40, ""
  AppendMenu hPopupMenu, MF_STRING, 30, "Êàòàëîã ïðîôèëåé..."
  SetMenu hwnd, hMenu
  OldWndProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Public Sub SetOldWndProc()
  DestroyMenu hMenu
  SetWindowLong hwnd, GWL_WNDPROC, OldWndProc
End Sub