MULTIMEDIA PLAYER IN VB

I have created a multimedia player that can play all kinds of media files such as wav, midi, mp3, mpeg video, avi video and so on. When you launch the program, you can select files of different types from different drives. After you have selected a particular files, you can play it using the customized button or you can use the buttons of the multimedia control In this program, you need to insert the Microsoft Multimedia Control, a combo box, a dirListBox, a DriveListBox, a fileListbox, a picture box(to play the video) , a text box and four command buttons which you label as "Play", "Open","Stop" and "Exit".One of the most important procedures is to open various audio files, the codes are as follow: THE CODE:-  Private Sub Open_Click() If Combo1.ListIndex = 0 Then MMControl1.DeviceType = "WaveAudio" End If If Combo1.ListIndex = 1 Then MMControl1.DeviceType = "Sequencer" End If If Combo1.ListIndex = 2 Then MMControl1.DeviceType = "AVIVideo" End If If Combo1.ListIndex = 3 Then MMControl1.DeviceType = "" End If