dim ocx as CObject
    ocx.CreateObjectFromLib("axvlc.dll" ,"{9BE31822-FDAD-461B-AD51-BE1D1C159921}")創建VLC對象
    if ocx.IsErr Then Exit sub
    ocx.AttachControl Me.Custom1.hWnd'附加到任意窗口上
    Ocx.Put("AutoPlay" ,vbTrue)'設置自動播放為True
    if Ocx.IsErr Then Debug.Print Ocx.ErrDescription'查詢是否有錯誤
    dim o as CObject = Ocx.get("playlist")'獲得播放列表對象
    If Ocx.IsErr Then Debug.Print Ocx.ErrDescription
    o.Run("Add" ,"file:///" & App.Path &"\1600746019592311.mp4")'添加mp4文件到播放列表
    If o.IsErr Then Debug.Print o.ErrDescription
    o.Run("play")'播放