Private Sub CLKTmr_Tick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles CLKTmr.Tick
        ' Ausführung: Jede Sekunde, Timer
        ' Beschreibung:
        '   Diese Prozedur wird jede Sekunde ausgeführt.
        CLKTmr.Enabled = False
        ja = 0
        nein = 0
 
        If AnzReg <> 0 And AnzUnr <> 0 Then
            Label3.Text = AnzReg + AnzUnr
        Else
            Label3.Text = "N/A"
        End If
        Label2.Text = "Rechneranzahl:"
 
        If Now.Second = 0 Then                              ' Wenn Sekunde = 0 ( 
        ' volle Minute)
            ' REG / UNREG neu einladen                      ' dann wird die _
              Rechnerliste neu
            RS = Conn.Execute("Select * from root_table")   ' eingelesen
            AnzReg = RS.RecordCount
            RS.CloseRecordset()
            RS = Conn.Execute("Select * from root_comp")
            AnzUnr = RS.RecordCount
            RS.CloseRecordset()
            ProgressBar1.Value = 0
            ProgressBar1.Maximum = AnzReg + AnzUnr
        End If
        If Now.Minute = 0 And lasthour <> Now.Hour Then
            ' Es ist eine volle Stunde, die anders ist als die bisherige (14, 
            ' statt 13 Uhr)
            ' Ping wird vorbereitet.
            Timer2.Enabled = True
            Me.Left = Screen.PrimaryScreen.Bounds.Right - Me.Width
            Me.Visible = True
            Me.Height = 0
            Me.Top = Screen.PrimaryScreen.Bounds.Bottom - Me.Height - 28
            Me.TopMost = True
            Label4.Visible = False
            While Start = False
                Application.DoEvents()
            End While
            Start = False
            ' Start des Scans
            ' Entfernung der Pinginformationen in der Datenbank
            Conn.Execute("DELETE FROM fe_tmp where code= 'pingstart'")
            Conn.Execute("DELETE FROM fe_tmp where code= 'pingende'")
            ' Pingstartzeit wird eingetragen.
            Conn.Execute("Insert into fe_tmp (code, tmp0) Values (" & _
              "'pingstart',NOW())")
            lasthour = Now.Hour
            ' Anzahl berechnen
            RS = Conn.Execute("Select * from root_table")
            AnzReg = RS.RecordCount
            RS.CloseRecordset()
            RS = Conn.Execute("Select * from root_comp")
            AnzUnr = RS.RecordCount
            RS.CloseRecordset()
            Anzahl = AnzReg + AnzUnr
            ProgressBar1.Value = 0
            ProgressBar1.Maximum = Anzahl
            ' Ping wird durchgeführt für alle inventarisierten Computer
            RS = Conn.Execute("Select * from root_table order by RECHNERNAME")
            RS.MoveFirst()
            Label2.Text = "Rechner: "
            i = 0
 
            While Not RS.EOF
                If ProgressBar1.Value < ProgressBar1.Maximum Then _
                  ProgressBar1.Value += 1