Private Sub ToolBarPrevNext_ButtonClick(sender As Object, e As ToolBarButtonClickEventArgs) _
   Handles ToolBarPrevNext.ButtonClick

  Private Sub s_DialogOpen_CallBackWndProc(ByRef m As Message, ByRef Cancel As Boolean) _
   Handles s_DialogOpen.CallBackWndProc
    'Debug.WriteLine(m.ToString)
    Select Case m.Msg
      Case WM_COMMAND
        'ENTER Sends a WM_COMMAND message to the dialog box procedure.
        'The wParam parameter is set to IDOK or control identifier of the default push button. 
        If m.WParam = ID_OPEN Then
          If gOpenToolbarPrevNext.Focused Then 'проверяем, в "фокусе" ли тулбар (по .Net понятиям)
            'выясняем, какую кнопку нажимали (а нажимается та которая highlited)
            Dim idHitTest As Integer = SendMessage(gOpenToolbarPrevNext.Handle, TB_GETHOTITEM, 0, 0)
            If idHitTest <> -1 Then
              'вызываем обработку нажатия кнопки вручную, т.к. мы отменяем все обработки
              FormOpen.ToolBarPrevNext_ButtonClick(FormOpen, _
               New ToolBarButtonClickEventArgs(gOpenToolbarPrevNext.Buttons(idHitTest)))
            End If
            Cancel = True 'не обрабатывать <ENTER> стандартным образом
          End If
        End If
      Case Else
    End Select
  End Sub