i have made a media player but it still doesnt work can i please have help the code that i wrote was:

Private Sub cmdOpen_Click()
cdgOpenFile.Filter = "Audiio Files (*.wav,*.mp3,*.mid)|*.wav;*.mp3;*.mid|Video Files(*.avi)|*.avi"
cdgOpenFile.Action = 1
mpClip.FileName = cdgOpenFile.FileName
lblFileName.Caption = cdgOpenFile.FileName
End Sub

please reply quick