Private Sub Timer1_Timer()
    Dim lCurPos As Long
    Dim lLength As Long
 
    lCurPos = SendCommand("status myMP3 position")
 
    lLength = SendCommand("status myMP3 length")
 
    If lCurPos >= lLength Then
      SendCommand ("play myMP3 from 0")
    End If
 
    lblDisplay = "[01]" & "<" & FormatTime(lLength - lCurPos) & ">"
End Sub
 
Private Sub Timer2_Timer()
    Dim lCurPos As Long
    Dim lLength As Long
 
    If lCurPos >= lLength Then
 
      Timer1.Enabled = False
 
      SendCommand ("play myMP3 from 0")
 
    End If
 
End Sub
 
Private Sub cmdPause_Click()
    Timer2.Enabled = True
End Sub

mfg
peacemaker

e-mail: vbarchiv@web.de