Sub ExitButton_Click
Dim sf As Object = xui.Msgbox2Async("Proggi wird neu gestartet !","Neustart","OK","","Abbruch", Null)
Wait For (sf) Msgbox_Result (Result As Int)
If Result = xui.DialogResponse_Positive Then
Dim shl As Shell
Try
shl.Initialize("shl", "java.exe" , Array As String("-jar", "YourRestart.jar"))
shl.WorkingDirectory = File.DirApp
shl.Run(-1)
Catch
Log(LastException.Message)
End Try
Log("Neustart!!!")
ExitApplication
End If
End Sub