Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
 
        Dim wc As New Net.WebClient
        Dim s As String = wc.DownloadString( _
          "http://192.168.178.82//middleware.php/data/6bc4bfc0-a668-11eb-b9cd-" & _
          "b02045b5107.txt?from=now")
        Label1.Text = s
        s = Nothing
 
 
        Dim x As String = PictureBox1.Width \ 2 - Label1.Width \ 2
 
 
        Label1.Location = New Point(x, 120)
 
        If Label1.Text >= "0" Then
            Label1.ForeColor = Color.Red
        Else
            Label1.ForeColor = Color.Green
        End If
 
    End Sub

Option Strict On
Option Explicit On
 
Public Class Form1
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles _
      Timer1.Tick
 
        Dim strRet As String = String.Empty
 
        Using wc As New Net.WebClient
 
            strRet = wc.DownloadString( _
              "http://192.168.178.82//middleware.php/data/6bc4bfc0-a668-11eb-b" & _
              "cd-" &
                                       "b02045b5107.txt?from=now")
 
        End Using
 
        If strRet <> String.Empty Then
 
            Label1.Text = strRet
            Label1.Location = New Point((PictureBox1.Width \ 2) - (Label1.Width _
              \ 2), 120)
 
            If Integer.Parse(strRet) >= 0 Then
                Label1.ForeColor = Color.Red
            Else
                Label1.ForeColor = Color.Green
            End If
 
        End If
 
    End Sub
 
End Class

Mit freundlichen Grüßen
-Franky-