Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Dim jsh As Shell
End Sub
Sub AppStart (Form1 As Form, Args() As String)
jsh.InitializeDoNotHandleQuotes("jsh","C:/the/really/long/pathname/to/where/chrome/is/chrome.exe",Array("--app=https://www.youtube.com/embed/CTNJ51ghzdY"))
jsh.Run(-1)
End Sub
wv.LoadUrl("http://www.dailymotion.com/video/x2oa18s_une-video-amateur-montre-le-moment-ou-le-seisme-a-frappe-le-tibet_news")
'
wv.LoadHtml($"<iframe frameborder="0" width="480" height="270" src="http://www.dailymotion.com/embed/video/x2bi11w" allowfullscreen></iframe><br /><a href="http://www.dailymotion.com/video/x2bi11w_un-sinkhole-engloutit-une-voiture-sur-une-route-de-chine_news" target="_blank">Un "sinkhole" engloutit une voiture sur une...</a> <i>by <a href="http://www.dailymotion.com/lemondefr" target="_blank">lemondefr</a></i>"$)