Private Sub Form1_Load()
End Sub

Private Sub CmdExit_Click()
End
End Sub

Private Sub CmdMax_Click()
WindowsMediaPlayer1.fullScreen = True

End Sub

Private Sub cmdOpen_Click()
Me.CommonDialog1.Filter = "WAV Files (*.wav)|*.wav|" & "MP3 Files (*.mp3)|*.mp3|" & "MP4 Files (*.mp4)|*.mp4|" & "Video Files (*.avi)|*.avi|" & "MPEG Files (*.mpg)|*.mpg|"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub



Private Sub cmdPlay_Click()
WindowsMediaPlayer1.URL = Text1.Text
End Sub



Private Sub cmdStop_Click()
WindowsMediaPlayer1.Close
End Sub