Sub btnStartServer_Click
    If ServerStarted =  False Then
        sh.Initialize("sh", "java" , Array As String("-jar", "C:\Dropbox\B4x\CrossPlatform\Beeps\Server\Objects\BeepsServer.jar"))
        sh.Run(-1)
        ServerStarted = True
        SetButtons(ServerStarted)
    End If
End Sub
Sub sh_ProcessCompleted (Success As Boolean, ExitCode As Int, StdOut As String, StdErr As String)
    Log($"sh_ProcessCompleted:${Success}, ${ExitCode}"$ )
    If Success And ExitCode = 0 Then
        Log(StdOut)
        btnShowAll_Action        'show existing data
        ServerStarted = True
        SetButtons(ServerStarted)
    Else
        Log("sh_ProcessCompleted:Error: " & StdErr)
    End If
End Sub