Visual Basic - Sonido

Hola !!, tengo el siguiente codigo para reproducir sonido, pero no funciona, alguien podria decirme donde me equivoco

'Indicamos el archivo
mc.FileName = ruta
'Lo abrimos
mc.Command = "Open"
'Intervalo para el evento StatusUpdate
mc.UpdateInterval = 100
'Ponemos el shape en 0
sPorcentaje.Width = 0
End Sub
Private Sub Command1_Click()
MMControl1.From = 0
MMControl1.Command = "Play"
End Sub

Private Sub Command2_Click()
If MMControl1.Mode <> MMControl1iModeStop Then
MMControl1.Command = "Stop"
End If

End Sub

Private Sub Command3_Click()
If MMControl1.Mode <> MMControl1iModePause Then
MMControl1.Command = "Pause"
End If
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
MMControl1.FileName = File1.Path

End Sub

Hola !!, no hay nadie que me pueda ayudar con el sonido en Visual Basic 6.