To keep the menubar at the top, remove all flags in the Flags property except the Fixed flag, which should be checked. Then use the following code to prevent any other bands from being docked above the menubar:

Private Sub abDDWordPad_BandMove(ByVal Band As ActiveBar2LibraryCtl.Band)
   If Band.Name <> "mnuMain" Then
      abDDWordPad.Bands("mnuMain").DockLine = 0 
      abDDWordPad.RecalcLayout 
   End If 
End Sub