.NET 4.x Отобразить процент в ProgressBar - Visual Basic .NET

Формулировка задачи:

ProgressBar нужно отобразить процент ! от 0 до 100% в Timer1

                    Листинг программы
                
 
                        
                          
                    
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
ProgressBar1.Maximum = System.Math.Round(My.Computer.Info.TotalPhysicalMemory / (1024 * 1024))
ProgressBar1.Value = System.Math.Round(My.Computer.Info.TotalPhysicalMemory / (1024 * 1024)) - System.Math.Round(My.Computer.Info.AvailablePhysicalMemory / (1024 * 1024))
Label2.Text = String.Format("Доступно: {0} МБ", System.Math.Round(My.Computer.Info.AvailablePhysicalMemory / (1024 * 1024)), 2).ToString() 'доступно
Label3.Text = String.Format("Используется: {0} МБ", System.Math.Round(My.Computer.Info.TotalPhysicalMemory / (1024 * 1024)) - System.Math.Round(My.Computer.Info.AvailablePhysicalMemory / (1024 * 1024)), 2).ToString() ' Используется
Label4.Text = ProgressBar1.Value ' вот тут на Label4 нужно отобразить процент загрузки от 0% до 100%
End Sub

Как это легче всего сделать ? И еще по ProgressBar1 , я не нашел как поменять цвет в настройках с зеленого на синий к примеру ! вот скрин - хотел бы сделать такой же ProgressBar

Решение задачи: «.NET 4.x Отобразить процент в ProgressBar»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public Class Form1
    Private Sub PictureBox1_Paint(sender As PictureBox, e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        e.Graphics.FillRectangle(Brushes.Blue, New Rectangle(0, 0, TrackBar1.Value, sender.Height))
    End Sub
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        TrackBar1.Maximum = PictureBox1.Width
    End Sub
 
    Private Sub TrackBar1_Scroll(sender As System.Object, e As System.EventArgs) Handles TrackBar1.Scroll
        PictureBox1.Refresh()
        Label1.Text = CInt((sender.value / sender.maximum) * 100) & " %"
    End Sub
End Class