Private Sub battery_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles battery.Tick
        Dim power As PowerStatus = SystemInformation.PowerStatus
        Dim percent As Single = power.BatteryLifePercent
        ProgressBar3.Value = percent * 100
        If ProgressBar3.Value >= 80 Then
            ToolStripButton29.Image = OS_1_beta_development_mode.My.Resources.Resources.battery_6
        ElseIf ProgressBar3.Value >= 60 Then
            ToolStripButton29.Image = OS_1_beta_development_mode.My.Resources.Resources.battery_5
        End If
    End Sub