Dim Options() As String
Options = Array As String(":dshow-vdev=Microsoft® LifeCam HD-3000", $":sout=#transcode{vcodec=h264,acodec=mpga,ab=128,channels=2,samplerate=44100}:file{dst=C:\Users\moste\_test5.mp4,no-overwrite}"$)
Dim jo As JavaObject = vlc1.player
jo.RunMethodjo("getMp",Null).RunMethod("playMedia", Array("dshow://", Options))