playing song

Private Sub Command1_Click()
MediaPlayer1.Open "C:\beatles-yesterday.mp3"
End Sub

Private Sub Form_Load()
Command1.Caption = "Play"
End Sub