Private Sub cmdPause_Click()
  If cmdPause.Tag = "" Then
    ' aktuelle Position merken
    cmdPause.Tag = "Pause"
    mciSendString "stop myMP3", 0, 0, 0
  Else
    SendCommand "play myMP3"
    cmdPause.Tag = ""
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de