Public Sub Sel_Play_Click(Index As Integer)
If Jingle(Index) = "" Then
    Open_File.CancelError = True
    On Error Resume Next
    Open_File.ShowOpen
 
    If Err.Number = cdlCancel Then
        ' The user canceled.
        Exit Sub
    ElseIf Err.Number <> 0 Then
        ' Unknown error.
        MsgBox "Error " & Format$(Err.Number) & _
            " selecting file." & vbCrLf & Err.Description
        Exit Sub
    End If
    On Error GoTo 0
 
    ' Do something with the file.
    Jingle(Index) = Open_File.FileName
    Title_Alias(Index).Text = Jingle(Index)
    Alias(Index) = ""
    Check1(Index).Enabled = True
    Playtime(Index).Enabled = True
    SetVol(Index).Enabled = True
    Kill(Index).Enabled = True
    Sel_Play(Index).Caption = "F" + CStr(Index + 1)
    MediaPlayer(Index).FileName = Jingle(Index)
    lngSec = Fix(MediaPlayer(Index).Duration)
    lngHours = (lngSec - (lngSec Mod 60)) / 60 / 60
    lngMin = (lngSec - (lngHours * 60) - (lngSec Mod 60)) / 60
    lngSec = lngSec - (lngHours * 60 * 60) - (lngMin * 60)
    Play_Time(Index) = Format(CStr(lngHours), "00:") & Format(CStr(lngMin), _
      "00:") & Format(CStr(lngSec), "00")
    Playtime(Index).Text = Play_Time(Index)
Else
    If MediaPlayer(Index).PlayState = mpStopped Then
        MediaPlayer(Index).Play
        Title_Alias(Index).BackColor = &HC0FFFF
    Else
        MediaPlayer(Index).Stop
        MediaPlayer(Index).CurrentPosition = 0
        Title_Alias(Index).BackColor = &HFFFFFF
    End If
End If
End Sub