Public Function CheckLatency() As Integer
        Dim p As System.Net.NetworkInformation.Ping = New _
          System.Net.NetworkInformation.Ping
        Dim prep As System.Net.NetworkInformation.PingReply
        Dim purl As String = "heise.de"
        prep = p.Send(purl)
        Dim ptime As String = prep.RoundtripTime.ToString
        Return ptime
    End Function

        Dim BeforeLogin As Boolean
        Do Until BeforeLogin = True
            lblLatency.Text = "Latency: " & CheckLatency() & " ms"
            Threading.Thread.Sleep(1000)
        Loop

        If Me.Visible = True Then
            lblLatency.Text = "Latency: " & CheckLatency() & " ms"
            Threading.Thread.Sleep(1000)
        End If