Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
xui.SetDataFolder("MyApp")
File.Copy(File.DirAssets, "notification.bat", xui.DefaultFolder, "notification.bat")
End Sub
Sub ShowNotification (Body As String, Title As String)
Dim shl As Shell
shl.Initialize("shl", "cmd.exe", Array("/c", File.Combine(xui.DefaultFolder, "notification.bat"), Body, "Information", Title))
shl.Run(10000)
Wait For shl_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
Log(Success)
End Sub