Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        Count.Text = Count.Text + 1
 
        If max1.Text < Watt1.Text Then
            max1.Text = Watt1.Text
            Watt1.Refresh()
            max1.Refresh()
        End If
        If max2.Text < Watt2.Text Then
            max2.Text = Watt2.Text
            Watt2.Refresh()
            max2.Refresh()
        End If
        If max3.Text < Watt3.Text Then
            max3.Text = Watt3.Text
            Watt3.Refresh()
            max3.Refresh()
        End If
        If max4.Text < Watt4.Text Then
            max4.Text = Watt4.Text
            Watt4.Refresh()
            max4.Refresh()
        End If
        If max5.Text < Gesamtwatt.Text Then
            max5.Text = Gesamtwatt.Text
            Gesamtwatt.Refresh()
            max5.Refresh()
        End If
    End Sub