Entire code, also not working :

Code:
Option Explicit

Dim Music As DirectShowbuf


Private Type DirectShowbuf
    Event As IMediaEvent
    Control As IMediaControl
    Position As IMediaPosition
    Audio As IBasicAudio
    Video As IBasicVideo
    Video_Window As IVideoWindow
End Type

Private Function DSInit(DS As DirectShowbuf) As Boolean
    On Error GoTo Error_Handler
    Set DS.Control = New FilgraphManager
    Set DS.Event = DS.Control
    Set DS.Position = DS.Control
    DS.Position.Rate = 1
    DSInit = False
    Exit Function
Error_Handler:
'    Call ShowErrorMsg()
    DSInit = True
End Function

Private Sub Form_Load()
DSInit Music
Music.Control.RenderFile "C:\file.mp3"
Set Music.Audio = Music.Control
Music.Control.Run
End Sub