Application background Private Sub Command1_Click()
MediaPlayer1.Open List2
End Sub
Private Sub Command2_Click()
MediaPlayer1.Stop
End Sub
Private Sub Command3_Click()
If MediaPlayer1.IsDurationValid = False Then Exit Sub
If Command3.Caption = "Pause" Then
MediaPlayer1.pause
Command3.Caption = "Resume"
Else
MediaPlayer1.play
Command3.Caption = "Pause"
End If
End Sub
Private Sub Command4_Click()
Form2.Show
End Sub
Private Sub Command5_Click()
Form3.Show
End Sub
Private Sub List1_Click()
List2.ListIndex = List1.ListIndex
End Sub
Private Sub List1_DblClick()
Command1_Click
End Sub
Key Technology
mp3 player to play songs, and you enj