'открытие файла
    If MP3_Open(LabelGeneral.Caption, "MyWavFileGeneral", "waveaudio") Then
      SliderGeneral.Max = MP3_length("MyWavFileGeneral")
      SliderGeneral.SmallChange = SliderGeneral.Max / 40
      SliderGeneral.LargeChange = SliderGeneral.Max / 20
      SliderGeneral.Value = 0
      SliderGeneral.Visible = True
      LabelWavTimeGeneral.Caption = _
       TimeMinSecFromMilliseconds(SliderGeneral.Value) & "/" & TimeMinSecFromMilliseconds(SliderGeneral.Max)
      ToolbarPlayPauseStopGeneral.Buttons("PLAYBUTTON").Enabled = True
      ToolbarPlayPauseStopGeneral.Buttons("PAUSEBUTTON").Enabled = False
      ToolbarPlayPauseStopGeneral.Buttons("PAUSEBUTTON").Value = tbrUnpressed
      ToolbarPlayPauseStopGeneral.Buttons("STOPBUTTON").Enabled = False
      FrameWavPSGeneral.Visible = True
    Else


Private Sub ToolbarPlayPauseStopGeneral_ButtonClick(ByVal Button As ComctlLib.Button)
  Select Case Button.Key
    Case "PLAYBUTTON":
    If MP3_Play_only("MyWavFileGeneral", SliderGeneral.Value, Form1.SliderGeneral.hwnd) Then
      ToolbarPlayPauseStopGeneral.Buttons("PLAYBUTTON").Enabled = False
      ToolbarPlayPauseStopGeneral.Buttons("PAUSEBUTTON").Enabled = True
      ToolbarPlayPauseStopGeneral.Buttons("PAUSEBUTTON").Value = tbrUnpressed
      ToolbarPlayPauseStopGeneral.Buttons("STOPBUTTON").Enabled = True
      TimerPosGeneral.Enabled = True
    End If
    Case "PAUSEBUTTON":
      Select Case ToolbarPlayPauseStopGeneral.Buttons("PAUSEBUTTON").Value
        Case tbrPressed:
          If MP3_pause("MyWavFileGeneral") Then
            TimerPosGeneral.Enabled = False
            ToolbarPlayPauseStopGeneral.Buttons("PLAYBUTTON").Enabled = True
            ToolbarPlayPauseStopGeneral.Buttons("PAUSEBUTTON").Enabled = True
            ToolbarPlayPauseStopGeneral.Buttons("STOPBUTTON").Enabled = True
            SliderGeneral.Value = MP3_position("MyWavFileGeneral")
          End If
        Case tbrUnpressed: 'то же что и "PLAYBUTTON"
          If MP3_Play_only("MyWavFileGeneral", SliderGeneral.Value, Form1.SliderGeneral.hwnd) Then
            ToolbarPlayPauseStopGeneral.Buttons("PLAYBUTTON").Enabled = False
            ToolbarPlayPauseStopGeneral.Buttons("PAUSEBUTTON").Enabled = True
            ToolbarPlayPauseStopGeneral.Buttons("STOPBUTTON").Enabled = True
            TimerPosGeneral.Enabled = True
          End If
      End Select
    Case "STOPBUTTON":
      If MP3_Stop_only("MyWavFileGeneral") Then
        TimerPosGeneral.Enabled = False
        ToolbarPlayPauseStopGeneral.Buttons("PLAYBUTTON").Enabled = True
        ToolbarPlayPauseStopGeneral.Buttons("PAUSEBUTTON").Enabled = False
        ToolbarPlayPauseStopGeneral.Buttons("PAUSEBUTTON").Value = tbrUnpressed
        ToolbarPlayPauseStopGeneral.Buttons("STOPBUTTON").Enabled = False
        SliderGeneral.Value = 0
      End If
  End Select
End Sub

'для событий SliderGeneral
Public Function NewSliderGeneralWindowProc _
 (ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Select Case Msg
    Case MM_MCINOTIFY
      If wParam = MCI_NOTIFY_SUCCESSFUL Then 'только если файл закончился сам
        With Form1.ToolbarPlayPauseStopGeneral
          .Buttons("PLAYBUTTON").Enabled = True
          .Buttons("PAUSEBUTTON").Enabled = False
          .Buttons("PAUSEBUTTON").Value = tbrUnpressed
          .Buttons("STOPBUTTON").Enabled = False
        End With
        Form1.TimerPosGeneral.Enabled = False
        Form1.SliderGeneral.Value = 0
      End If
      Exit Function
    Case Else
  End Select 'Msg
  NewSliderGeneralWindowProc = CallWindowProc _
   (OldSliderGeneralWindowProc, hwnd, Msg, wParam, lParam)
End Function


Private Sub TimerPosGeneral_Timer()
  SliderGeneral.Value = MP3_position("MyWavFileGeneral")
End Sub

'http://www.vbarchiv.net/tipps/details.php?id=499

' Module MP3-Play and Stop via API
Option Explicit

'Multimedia Functions
Public Declare Function mciSendString Lib "winmm.dll" _
 Alias "mciSendStringA" ( _
 ByVal lpszCommand As String, _
 ByVal lpszReturnString As String, _
 ByVal cchReturn As Long, _
 ByVal hwndCallback As Long) As Long

'Multimedia Messages

'wFlags (MM_MCINOTIFY message) - Reason for the notification
Public Const MCI_NOTIFY_SUCCESSFUL = &H1        'Notification successful
Public Const MCI_NOTIFY_SUPERSEDED = &H2        'Notification superseded
Public Const MCI_NOTIFY_ABORTED = &H4           'Notification aborted
Public Const MCI_NOTIFY_FAILURE = &H8           'Notification failed

Public Const MM_MCINOTIFY = &H3B9
'

Public Function MP3_Play(ByVal sFile As String, _
 ByVal sAlias As String, ByVal sType As String, ByVal hwnd_cb As Long) As Boolean
 
  'sType="waveaudio" -to play WAV
  'sType="MPEGVideo" -to play mp3
 
  Dim bResult As Boolean
 
  ' Dateinamen in DOS 8.3 Format, da z.B. Sonderzeichen
  ' wie Leerzeichen Probleme machen
  Dim sBuffer As String
  Dim lResult As Long
 
  sBuffer = Space$(255)
  lResult = GetShortPathName(sFile, sBuffer, Len(sBuffer))

  If lResult <> 0 Then
    sFile = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
 
    ' MCI &#246;ffnen
    lResult = mciSendString("open " & sFile & " type " & sType & " alias " & sAlias, 0, 0, 0)
 
    If lResult = 0 Then
      ' MP3 abspielen
      If mciSendString("play " & sAlias & " from 0 notify", 0, 0, hwnd_cb) = 0 Then
        bResult = True
      End If
    End If
  End If
 
  MP3_Play = bResult
End Function

Public Sub MP3_Stop(ByVal sAlias As String)
  mciSendString "stop " & sAlias, 0, 0, 0
  mciSendString "close " & sAlias, 0, 0, 0
End Sub

Public Function MP3_Play_only(ByVal sAlias As String, sPosition As String, ByVal hwnd_cb As Long) As Boolean
  If mciSendString("play " & sAlias & " from " & sPosition & " notify", 0, 0, hwnd_cb) = 0 Then
    MP3_Play_only = True
  End If
End Function

Public Function MP3_Stop_only(ByVal sAlias As String) As Boolean
  If mciSendString("stop " & sAlias, 0, 0, 0) = 0 Then
    MP3_Stop_only = True
  End If
End Function

Public Sub MP3_Close_only(ByVal sAlias As String)
  mciSendString "close " & sAlias, 0, 0, 0
End Sub

Public Function MP3_Open(ByVal sFile As String, _
 ByVal sAlias As String, ByVal sType As String) As Boolean
 
  Dim bResult As Boolean
 
  ' Dateinamen in DOS 8.3 Format, da z.B. Sonderzeichen
  ' wie Leerzeichen Probleme machen
  Dim sBuffer As String
  Dim lResult As Long
 
  sBuffer = Space$(255)
  lResult = GetShortPathName(sFile, sBuffer, Len(sBuffer))

  If lResult <> 0 Then
    sFile = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
 
    ' MCI &#246;ffnen
    lResult = mciSendString("open " & sFile & " type " & sType & " alias " & sAlias, 0, 0, 0)
 
    If lResult = 0 Then
      bResult = True
    End If
  End If
 
  MP3_Open = bResult
End Function

Public Function MP3_length(ByVal sAlias As String) As Long

  Dim RetString As String * 256
  Dim strCommand As String
  Dim lResult As Long

  strCommand = "set " & sAlias & " time format milliseconds"
  mciSendString strCommand, vbNullString, 0, 0&
  strCommand = "status " & sAlias & " length"
  lResult = mciSendString(strCommand, RetString, Len(RetString), 0&)
  If lResult = 0 Then
    MP3_length = CLng(RetString)
  End If
End Function

Public Function MP3_position(ByVal sAlias As String) As Long

  Dim RetString As String * 256
  Dim strCommand As String
  Dim lResult As Long

  strCommand = "status " & sAlias & " position"
  lResult = mciSendString(strCommand, RetString, Len(RetString), 0&)
  If lResult <> 0 Then
    MP3_position = -1   'Not playing
  Else
    MP3_position = CLng(RetString)
  End If
End Function

Public Function MP3_seek(ByVal sAlias As String, ByVal sPosition As Long) As Boolean

  Dim RetString As String * 256
  Dim strCommand As String
  Dim lResult As Long

  strCommand = "seek " & sAlias & " to " & CStr(sPosition)
  lResult = mciSendString(strCommand, 0&, 0&, 0&)
  If lResult = 0 Then
    MP3_seek = True
  End If
End Function

'Pause the named media instance
Public Function MP3_pause(ByVal sAlias As String) As Boolean

  Dim strCommand As String
  Dim lResult As Long

  strCommand = "pause " & sAlias
  lResult = mciSendString(strCommand, 0&, 0&, 0&)

  'Get the error message if there is any else return current status
  If lResult = 0 Then
    MP3_pause = True
  End If
End Function

'Resume the named media instance
Public Function MP3_resume(ByVal sAlias As String) As Boolean

  Dim strCommand As String
  Dim lResult As Long

  strCommand = "resume " & sAlias
  lResult = mciSendString(strCommand, 0&, 0&, 0&)

  'Get the error message if there is any else return current status
  If lResult = 0 Then
    MP3_resume = True
  End If
End Function