Private Sub Command1_Click()
MMControl1.FileName = Text1.Text
MMControl1.Command = "Open"
End Sub
Private Sub Command2_Click()
MMControl1.FileName = Text1.Text
MMControl1.Command = "Open"
MMControl1.Command = "Play"
Label2.Caption = Label2.Caption & " " & CommonDialog1.FileTitle
End Sub
Private Sub Command3_Click()
MMControl1.Command = "Pause"
End Sub
Private Sub Command4_Click()
CommonDialog1.Filter = "File Audio MP3"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub
Private Sub Command5_Click()
MMControl1.Command = "Stop"
End Sub