Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
Dim jmf As JavaObject = MainForm
Dim m As MediaPlayer
Dim stage As JavaObject = jmf.GetField("stage")
stage.RunMethod("setFullScreen", Array As Object(True))
m.Initialize("m",File.GetUri("f:\","video_test.mp4"))
stage.InitializeNewInstance("javafx.scene.media.MediaView",Array(m))
MainForm.RootPane.AddNode(stage,0,0,1920,1080)
stage.RunMethod("toBack",Null)
m.Play
Label1.Text="TEXT 1234"
end sub