//un petit exemple pour diffuser une video a une freebox par exemple, Le withEvents permet de beneficier des evenements liés a la lecture(non documenté ci dessous).

Public WithEvents objVlc As VLCPlugin
Private Voptions() As Variant

Private Sub Form_Load()
    If objVlc Is Nothing Then
        Set objVlc = New AXVLC.VLCPlugin
    End If
   
    Voptions() = Array(":file-caching=1000", _
            ":sout-ts-pid-video=68", ":sout-ts-pid-audio=69", ":sout-ts-pid-spu=70", ":sout-ts-pcr=80", _
            ":sout-transcode-maxwidth=720", ":sout-transcode-maxheight=576", _
            ":sout-standard-url=212.27.38.253:1234", _               ":sout=#transcode{vcodec=mp2v,vb=2000,scale=1,acodec=mpga,ab=384,channels=2}:duplicate{dst=display,dst=std{access=udp,mux=ts,url=212.27.38.253:1234}}")
        
         objVlc.addTarget "c:\mavido.avi", Voptions, VLCPlayListReplaceAndGo, -666
         objVlc.Play 
   
End Sub