Public Class DeviceControl

    Private Sub DeviceControl_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        tmrCollect.Start()
    End Sub

    Private Sub tmrCollect_Tick(sender As System.Object, e As System.EventArgs) Handles tmrCollect.Tick
        Dim value As Single = Math.Round(pcDevice.NextValue, 0)
        If value > 100 Then
            value = 100
        End If
        lblUsage.Text = value.ToString & "%"

    End Sub

End Class
