#define TBSTATE_ENABLED         0x04

Public Const TBSTATE_ENABLED As Integer =  4 

    'CreateaTbButtons = aTbBottons

Option Explicit
  
' Флаги исходного состояния кнопки:
Public Const TBSTATE_ENABLED As Integer = 4        ' кнопка находится в разблокированном состоянии
Public Const TBSTATE_CHECKED As Integer =  1         ' кнопка изображается в нажатом состоянии, этот флаг
                                                   ' используется для кнопок с фиксацией
Public Const TBSTATE_HIDDEN As Integer =  8          ' скрытая кнопка, не отображается
Public Const TBSTATE_INDETERMINATE As Integer = 16 ' кнопка отображается серым цветом
Public Const TBSTATE_PRESSED As Integer =  2         ' кнопка изображается в нажатом состоянии
Public Const TBSTATE_WRAP As Integer = 32          ' кнопки, расположенные после той, что имеет флаг
                                                   ' TBSTATE_WRAP, отображаются на новой строке. Таким образом,
                                                   ' вы можете создать многострочный Toolbar . Этот флаг можно
                                                   ' указывать только тогда, когда установлен флаг TBSTATE_ENABLED
' Стиль кнопки:
Public Const TBSTYLE_BUTTON As Integer =  0      ' стандартная кнопка
Public Const TBSTYLE_CHECK As Integer = 2      ' кнопка с фиксацией. Эта кнопка "залипает", когда пользователь
                                               ' нажимает на нее. Для того чтобы вернуть кнопку в исходное
                                               ' состояние, необходимо нажать на нее еще раз
Public Const TBSTYLE_CHECKGROUP As Integer =  8  ' кнопка с фиксацией, которая остается нажатой до тех пор,
                                               ' пока нажата другая кнопка из этой же группы
Public Const TBSTYLE_GROUP As Integer =  4       ' стандартная кнопка, которая остается нажатой до тех пор,
                                               ' пока нажата другая кнопка из этой же группы
Public Const TBSTYLE_SEP As Integer =  1         ' разделитель между группами кнопок

' Флаги и стили окна Toolbar
Public Const WS_CHILD As Long =  1073741824 
Public Const WS_VISIBLE As Long =  268435456 
Public Const WS_BORDER As Long =  8388608 
Public Const TBSTYLE_TOOLTIP As Integer =  256   ' Вывод краткого описания кнопки в окне органа управления Tool Tip
Public Const TBSTYLE_ALTDRAG As Integer = 1024 '
Public Const TBSTYLE_WRAPABLE As Integer =  512  '

Option Explicit

Private Declare Function CreateToolbarEx Lib "comctl32" (ByVal hWndParent As Long, ByVal dwStyle As Long, ByVal wID As Long, ByVal nBitmaps As Long, ByVal hBMInst As Long, ByVal wBMID As Long, lpButtons As TBBUTTON, ByVal iNumButtons As Long, ByVal dxButton As Long, ByVal dyButton As Long, ByVal dxBitmap As Long, ByVal dyBitmap As Long, ByVal uStructSize As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Type TBBUTTON
  iBitmap As Integer
  idCommand As Integer
  fsState As Byte
  fsStyle As Byte
  dwData As Long
  iString As Long
End Type

Private hwndTb As Long

Private Sub Form_Load()
    hwndTb = CreateToolbarEx(Me.hWnd, WS_CHILD Or WS_VISIBLE Or TBSTYLE_TOOLTIP,  801 ,  2 , App.hInstance,  0 , CreateaTbButtons,  3 ,  20 ,  20 ,  20 ,  20 ,  300 )
End Sub

Private Function CreateaTbButtons() As TBBUTTON
Dim aTbBottons( 0  To  2 ) As TBBUTTON
    aTbBottons( 0 ).iBitmap =  0 
    aTbBottons( 0 ).idCommand =  0 
    aTbBottons( 0 ).fsState = TBSTATE_ENABLED
    aTbBottons( 0 ).fsStyle = TBSTYLE_SEP
    aTbBottons( 0 ).dwData =  0 
    aTbBottons( 0 ).iString =  0 
    aTbBottons( 1 ).iBitmap =  1 
    aTbBottons( 1 ).idCommand =  100 
    aTbBottons( 1 ).fsState = TBSTATE_ENABLED
    aTbBottons( 1 ).fsStyle = TBSTYLE_BUTTON
    aTbBottons( 1 ).dwData =  0 
    aTbBottons( 1 ).iString =  1 
    aTbBottons( 2 ).iBitmap =  2 
    aTbBottons( 2 ).idCommand =  200 
    aTbBottons( 2 ).fsState = TBSTATE_ENABLED
    aTbBottons( 2 ).fsStyle = TBSTYLE_BUTTON
    aTbBottons( 2 ).dwData =  0 
    aTbBottons( 2 ).iString =  2 
    'CreateaTbButtons = aTbBottons
End Function