Case WM_NOTIFY 'toolbar
      Call CopyMemory(uNMHDR, ByVal lParam, Len(uNMHDR))
      Select Case uNMHDR.code
        Case TBN_HOTITEMCHANGE
          If (uNMHDR.hwndFrom = g_hwndToolBar) Then
            Call CopyMemory(uNMTBHI, ByVal lParam, Len(uNMTBHI))
            If (uNMTBHI.idOld) Then
              Form1.StatusBar1.Panels(1).Text = "Proga name" 'кнопка не выбрана
            Else
              Form1.StatusBar1.Panels(1).Text = GetHelpToolbarAPIStr(uNMTBHI.idNew)
            End If
            If (uNMTBHI.idNew) Then
              Form1.StatusBar1.Panels(1).Text = GetHelpToolbarAPIStr(uNMTBHI.idNew)
            Else
              Form1.StatusBar1.Panels(1).Text = "Proga name"'кнопка не выбрана
            End If
          End If