Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Timer1.Tick
        'Logon Server
        Dim authserver As String = "authserver"
        Dim authserver_b As Boolean = CheckProcessIsRun(authserver)
        If authserver_b Then
            Label4.Text = "Online"
            Label4.ForeColor = Color.Green
        Else
            Label4.Text = "Offline"
            Label4.ForeColor = Color.Red()
 
            Dim authserver_oprocess As New Process
            With authserver_oprocess
                .EnableRaisingEvents = True
                .StartInfo.CreateNoWindow = True
                .StartInfo.UseShellExecute = False
                .StartInfo.RedirectStandardOutput = True
                .StartInfo.FileName = "core/authserver.exe"
                .StartInfo.Arguments = "-c core/authserver.conf"
                AddHandler .OutputDataReceived, AddressOf GetData
                .Start()
                .BeginOutputReadLine()
                RemoveHandler .OutputDataReceived, AddressOf GetData
            End With
        End If
    End Sub
 
    Private Sub GetData(ByVal sender As Object, ByVal e As _
      System.Diagnostics.DataReceivedEventArgs)
        If e.Data Is Nothing Then Exit Sub
        If e.Data.Length = 0 Then Exit Sub
        TextBox1.Text = (e.Data)
    End Sub