Dim RebarStyle As Long
 
  RebarStyle = WS_CHILD Or WS_VISIBLE Or WS_CLIPSIBLINGS Or WS_CLIPCHILDREN Or _
   CCS_NODIVIDER Or _
     CCS_NOPARENTALIGN Or CCS_TOP Or WS_BORDER Or RBS_FIXEDORDER Or RBS_AUTOSIZE 'Or RBS_VARHEIGHT  Or 'Or RBS_AUTOSIZE

  g_hwndRebar = CreateWindowEx(WS_EX_TOOLWINDOW, _
   REBARCLASSNAME, _
   vbNullString, _
   RebarStyle, _
   0, _
   0, _
   rcClient.Right, _
   0, _
   hwndParent, _
   0&, _
   App.hInstance, _
   0&)
 'rcClient.Right

Private Sub CommandSubClass_Click()
  Dim hwndHelp As Long
  hwndHelp = HTMLHelp(0, App.Path & "\" & "proga.chm", HH_DISPLAY_TOPIC, ByVal Combo1.Text)
  SetWindowLong hwndHelp, GWL_WNDPROC, OldHelpWindowProc 'снять если уже установлен
  OldHelpWindowProc = SetWindowLong( _
   hwndHelp, GWL_WNDPROC, _
   AddressOf NewHelpWindowProc)
End Sub


Public Function NewHelpWindowProc( _
 ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, lParam) As Long
  'даже если вообще пусто
  NewHelpWindowProc = CallWindowProc( _
   OldHelpWindowProc, hwnd, Msg, wParam, _
   lParam)
End Function

Screen.Width / Screen.TwipsPerPixelX * 2

Public Function NewHelpWindowProc( _
 ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Variant) As Long

  With rbBand
...
      .cyMinChild = 80

Public Function NewHelpWindowProc( _
 ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    
'... 
    If Msg <> 49366 And Msg <> 78 And Msg <> 273 And Msg <> 70 Then
        NewHelpWindowProc = CallWindowProc(OldHelpWindowProc, hwnd, Msg, wParam, lParam)
    End If
End Function

SetWindowLong hwndTb, GWL_STYLE, GetWindowLong(hwndTb, GWL_STYLE) And Not TBSTYLE_WRAPABLE

SetWindowLong hwndTb, GWL_STYLE, GetWindowLong(hwndTb, GWL_STYLE) And Not TBSTYLE_WRAPABLE

SetWindowLong hwndTb, GWL_STYLE, GetWindowLong(hwndTb, GWL_STYLE) And Not TBSTYLE_FLAT

  With rbBand
...
      .cyMinChild = 80

SendMessage hwndHelp, WM_SIZE, 0, 0

          Case HHN_TRACK
            Debug.Print "HHN_TRACK"
            CopyMemory tHDN, ByVal lParam, Len(tHDN)
            If tHDN.iButton = 5 Then 'кнопка Show
              If sys_WinVista And ThemesEnabled(Form1.hwnd) Then Help_NeedReCreateRebar = True

Public Sub ReCreate_Rebar(hwndHelp As Long)
  Help_NeedReCreateRebar = False
  Dim hwndTb As Long
  hwndTb = FindWindowEx(g_hwndRebar, 0, "ToolbarWindow32", vbNullChar)
  SetParent hwndTb, hwndHelp
  DestroyWindow g_hwndRebar
  CreateTheReBar hwndHelp, hwndTb
  SendMessage hwndHelp, WM_SIZE, 0, 0
  Call RedrawWindow(hwndTb, ByVal 0&, ByVal 0&, RDW_INVALIDATE Or RDW_FRAME Or RDW_UPDATENOW)
End Sub