Option Explicit Dim myfile As String Dim i, j, d, a, s As Integer Dim plalis(80), str As String Dim t, t1 As Integer Private Sub addd_Click d = 1 Drive1. Visible = True Dir1. Visible = True File1. Visible = False clos. Visible = True End Sub Private Sub addfi_Click addd. Visible = True addfile. Visible = True addfile. Caption = "add file" addd. Caption = "add dir" addfi. Visible = False End Sub Private Sub addfile_Click Drive1. Visible = True Dir1. Visible = True File1. Visible = True clos. Visible = True End Sub Private Sub clos_Click Drive1. Visible = False Dir1. Visible = False File1. Visible = False addd. Visible = False addfile. Visible = False addfi. Visible = True clos. Visible = False End Sub Private Sub Dir1_Change Dim tot, X As Integer File1. FileName = Dir1. Path If d = 1 Then tot = File1. ListCount - 1 For X = 0 To tot List1. AddItem File1. List , i plalis = Dir1. Path i = i + 1 d = 0 Next End If End Sub Private Sub Drive1_Change On Error GoTo err Dir1. Path = Drive1. Drive Exit Sub err: MsgBox "drive not available" End Sub Private Sub File1_Click List1. AddItem File1. FileName, i plalis = Dir1. Path i = i + 1 End Sub Private Sub Form_Load Label6. Caption = "DESIGNED BY SELVAKUMAR" Label5. Caption = "CONTACT me at kumar_kss@hotmail.com" End Sub Private Sub forward_Click Dim s, m1, s1 As Integer Dim te As String If List1. ListCount = 0 Then MsgBox "No songs in list" Exit Sub End If If List1. ListIndex = List1. ListCount - 1 Then List1. ListIndex = 0 Else List1. ListIndex = List1. ListIndex + 1 End If a = List1. ListIndex mp. FileName = plalis & "\" & List1. List(List1. ListIndex) s = mp. Duration m1 = s \ 60 s1 = s - (m1 60) If s1 < 10 Then te = CStr(0) & CStr(s1) Else te = CStr(s1) End If Label2. Caption = CStr(m1) & "." & te mp. play End Sub Private Sub List1_DblClick Dim s, m1, s1 As Integer Dim te As String If (List1. ListIndex = -1) Then List1. ListIndex = 0 End If Drive1. Visible = False Dir1. Visible = False File1. Visible = False addd. Visible = False addfile. Visible = False addfi. Visible = True clos. Visible = False a = List1. ListIndex mp. FileName = plalis & "\" & List1. List(List1. ListIndex) s = mp. Duration m1 = s \ 60 s1 = s - (m1 60) If s1 < 10 Then te = CStr(0) & CStr(s1) Else te = CStr(s1) End If Label2. Caption = CStr(m1) & "." & te mp. play vsc. Visible = True End Sub Private Sub mp_EndOfStream Dim s, m1, s1 As Integer Dim te As String If List1. ListCount = 0 Then mp. Stop Exit Sub End If If List1. ListIndex = List1. ListCount - 1 Then List1. ListIndex = 0 Else List1. ListIndex = List1. ListIndex + 1 End If a = List1. ListIndex mp. FileName = plalis & "\" & List1. List(List1. ListIndex) s = mp. Duration m1 = s \ 60 s1 = s - (m1 60) If s1 < 10 Then te = CStr(0) & CStr(s1) Else te = CStr(s1) End If Label2. Caption = CStr(m1) & "." & te mp. AutoStart = True End Sub Private Sub play_Click Dim s, m1, s1 As Integer Dim te As String If List1. ListCount = 0 Then MsgBox "please select the songs" Exit Sub End If If (List1. ListIndex = -1) Then List1. ListIndex = 0 End If Drive1. Visible = False Dir1. Visible = False File1. Visible = False addd. Visible = False addfile. Visible = False addfi. Visible = True clos. Visible = False a = List1. ListIndex mp. FileName = plalis & "\" & List1. List(List1. ListIndex) s = mp. Duration m1 = s \ 60 s1 = s - (m1 60) If s1 < 10 Then te = CStr(0) & CStr(s1) Else te = CStr(s1) End If Label2. Caption = CStr(m1) & "." & te mp. play vsc. Visible = True End Sub Private Sub previous_Click Dim s, m1, s1 As Integer Dim te As String If List1. ListCount = 0 Then MsgBox "No songs in list" Exit Sub End If If List1. ListIndex = 0 Then List1. ListIndex = List1. ListCount - 1 Else List1. ListIndex = List1. ListIndex - 1 End If a = List1. ListIndex mp. FileName = plalis & "\" & List1. List(List1. ListIndex) s = mp. Duration m1 = s \ 60 s1 = s - (m1 60) If s1 < 10 Then te = CStr(0) & CStr(s1) Else te = CStr(s1) End If Label2. Caption = CStr(m1) & "." & t mp. play End Sub Private Sub remall_Click Dim c, c1 As Integer For c = i - 1 To 0 Step -1 List1. RemoveItem c Next remfi. Visible = False remall. Visible = False remove. Visible = True End Sub Private Sub remfi_Click Dim c, c1, c2 As Integer c = List1. ListIndex If c = -1 Then remfi. Visible = False remall. Visible = False remove. Visible = True Exit Sub Else List1. RemoveItem c End If remfi. Visible = False remall. Visible = False remove. Visible = True i = i - 1 c2 = c For c1 = 0 To List1. NewIndex If i > c2 Then plalis = plalis(c + 1) c = c + 1 End If Next End Sub Private Sub remove_Click remfi. Visible = True remall. Visible = True remove. Visible = False End Sub Private Sub sto_Click vsc. Visible = False Frame1. Visible = False Frame2. Visible = False mp. Stop End Sub Private Sub Timer2_Timer If mp. PlayState = mpPlaying Then sto. Caption = "STOP" Frame1. Visible = True If t = 0 Then Picture2(0). Visible = True Picture2(1). Visible = False Picture2(2). Visible = False Picture2(3). Visible = False Picture2(4). Visible = False t = t + 1 ElseIf t = 1 Then Picture2(0). Visible = True Picture2(1). Visible = True Picture2(2). Visible = False Picture2(3). Visible = False Picture2(4). Visible = False t = t + 1 ElseIf t = 2 Then Picture2(0). Visible = True Picture2(1). Visible = True Picture2(2). Visible = True Picture2(3). Visible = False Picture2(4). Visible = False t = t + 1 ElseIf t = 3 Then Picture2(0). Visible = True Picture2(1). Visible = True Picture2(2). Visible = True Picture2(3). Visible = True Picture2(4). Visible = False t = t + 1 ElseIf t = 4 And mp. Volume > -50 Then Picture2(0). Visible = True Picture2(1). Visible = True Picture2(2). Visible = True Picture2(3). Visible = True Picture2(4). Visible = True t = 0 Else t = 0 End If End If Label3. Caption = " " & Time End Sub Private Sub vsc_Change mp. Volume = vsc. Value End Sub Private Sub Timer1_Timer If mp. PlayState = mpPlaying Then Frame2. Visible = True If t1 = 0 Then Picture3(0). Visible = True Picture3(1). Visible = False Picture3(2). Visible = False Picture3(3). Visible = False Picture3(4). Visible = False t1 = t1 + 1 ElseIf t1 = 1 Then Picture3(0). Visible = True Picture3(1). Visible = True Picture3(2). Visible = False Picture3(3). Visible = False Picture3(4). Visible = False t1 = t1 + 1 ElseIf t1 = 2 Then Picture3(0). Visible = True Picture3(1). Visible = True Picture3(2). Visible = True Picture3(3). Visible = False Picture3(4). Visible = False t1 = t1 + 1 ElseIf t1 = 3 Then Picture3(0). Visible = True Picture3(1). Visible = True Picture3(2). Visible = True Picture3(3). Visible = True Picture3(4). Visible = False t1 = t1 + 1 ElseIf t1 = 4 And mp. Volume > -50 Then Picture3(0). Visible = True Picture3(1). Visible = True Picture3(2). Visible = True Picture3(3). Visible = True Picture3(4). Visible = True t1 = 0 Else t1 = 0 End If End If End Sub