Private Sub cmdplay_Click()

On Error GoTo error_handle

Text3.Text = Mp3Play1.Play

Exit Sub
error_handle:
Text21.Text = Error
Resume Next

End Sub


Private Sub cmdOff_Click()

If cmdOff.Caption = "off" Then
Mp3Play1.SetErrorMode 1
cmdOff.Caption = "on"
Else
Mp3Play1.SetErrorMode 0
cmdOff.Caption = "off"
End If

End Sub

Private Sub cmdGet_Click()
On Error GoTo error_handle

HScroll1.Value = Mp3Play1.GetVolumeLeftP
Text27.Text = Mp3Play1.GetVolumeLeftP

Exit Sub
error_handle:
Text21.Text = Error
Resume Next
End Sub




Private Sub Command12_Click()
On Error GoTo error_handle

Text25.Text = Mp3Play1.Authorize(Text23.Text, Text24.Text)

Exit Sub
error_handle:
Text21.Text = Error
Resume Next

End Sub

Private Sub cmdAbout_Click()
Mp3Play1.AboutBox
End Sub

Private Sub cmdPause_Click()
On Error GoTo error_handle
Text26.Text = Mp3Play1.Pause
Exit Sub
error_handle:
Text21.Text = Error
Resume Next

End Sub

Private Sub Command15_Click()
Mp3Play1.ChannelMode = 3

End Sub

Private Sub cmdClose_Click()
On Error GoTo error_handle

Text5.Text = Mp3Play1.Close
Exit Sub
error_handle:
Text21.Text = Error
Resume Next

End Sub

Private Sub cmdopen_Click()
On Error GoTo error_handle
Text2.Text = Mp3Play1.Open(Text22.Text, "")
Exit Sub
error_handle:
Text21.Text = Error
Resume Next

End Sub

Private Sub cmdStop_Click()
On Error GoTo error_handle
Text4.Text = Mp3Play1.Stop
Exit Sub
error_handle:
Text21.Text = Error
Resume Next

End Sub

Private Sub CmdInfo_Click()
On Error GoTo error_handle
Text7.Text = "Bitrate: " & Mp3Play1.BitRate
Text8.Text = "Total Frame: " & Mp3Play1.FrameCount
Text9.Text = "Frame notify count: " & Mp3Play1.FrameNotifyCount
Text10.Text = "Has checksum: " & Mp3Play1.HasChecksums
Text11.Text = "Is copyrighted: " & Mp3Play1.IsCopyrighted
Text12.Text = "Is Original: " & Mp3Play1.IsOriginal
Text13.Text = "Layer: " & Mp3Play1.Layer
Text14.Text = "MPEG Mode: " & Mp3Play1.MPEGMode
Text15.Text = "MPEG Version: " & Mp3Play1.MPEGVersion
Text16.Text = "MS per frame: " & Mp3Play1.MsPerFrame
Text17.Text = "Sample Frequenz: " & Mp3Play1.SampleFrequency
Text18.Text = "Total time: " & Mp3Play1.TotalTime
Exit Sub
error_handle:
Text21.Text = Error
Resume Next

End Sub

Private Sub Command6_Click()
On Error GoTo error_handle

Text20.Text = Mp3Play1.Seek(Text6.Text - 400)
Exit Sub
error_handle:
Text21.Text = Error
Resume Next

End Sub

Private Sub Command7_Click()
On Error GoTo error_handle

Text20.Text = Mp3Play1.Seek(Text6.Text - 40)
Exit Sub
error_handle:
Text21.Text = Error
Resume Next

End Sub

Private Sub Command8_Click()
On Error GoTo error_handle

Text20.Text = Mp3Play1.Seek(Text6.Text + 40)
Exit Sub
error_handle:
Text21.Text = Error
Resume Next

End Sub

Private Sub Command9_Click()
On Error GoTo error_handle

Text20.Text = Mp3Play1.Seek(Text6.Text + 400)
Exit Sub
error_handle:
Text21.Text = Error
Resume Next

End Sub
Private Sub Form_Load()
Text1.Text = Mp3Play1.Version / 100
Text22.Text = DirList.Path
End Sub




Private Sub HScroll1_Change()
On Error GoTo error_handle
e = Mp3Play1.SetVolumeP(HScroll1.Value, HScroll1.Value)
Text27.Text = HScroll1.Value
Exit Sub
error_handle:
Text21.Text = Error
Resume Next
End Sub




Private Sub Mp3Play1_ActFrame(ByVal ActFrame As Long)
Text6.Text = ActFrame
Text19 = (ActFrame * Mp3Play1.MsPerFrame) \ 1000
End Sub

Private Sub Mp3Play1_ThreadEnded()

If Shape1.FillColor = &HC000& Then
Shape1.FillColor = &HC0&
Else
Shape1.FillColor = &HC000&
End If


End Sub
Private Sub Combo1_Click()
FileList.Pattern = Combo1.Text
End Sub

Private Sub dirList_change()
FileList.Path = DirList.Path

End Sub


Private Sub driveList_Change()
DirList.Path = driveList.Drive
End Sub

Private Sub filelist_click()
Label4.Caption = FileList.FileName
Text22.Text = DirList.Path + "\" + FileList.FileName
If Right$(DirList.Path, 1) = "\" Then
choicefile = DirList.Path + FileList.FileName
Else
choicefile = DirList.Path + "\" + FileList.FileName
End If
End Sub