<div>
There is a ProgressBar control - put one onto your form. 
 
Have a look at the following: 
<a href="http://msdn.microsoft.com/en-us/library/system.windows.forms.progressbar.maximum%28v=vs.110%29.aspx" rel="ugc nofollow">http://msdn.microsoft.com/en-us/library/system.windows.forms.progressbar.maximum%28v=vs.110%29.aspx</a> 
 
Set the max and minimum values to 240 and 0 (seconds in 4 minutes, try a step of -1 to decrement) then do the PerformStep in your timer event - I assume you wanted a step per second with the above values.
</div>

Untitled.png

<div>
This is pared down and modified code from my &quot;Kids Alarm Clock&quot; project, which I demonstrate here: 
<a href="https://www.youtube.com/watch?v=qucWOkZp0Uw" rel="ugc">https://www.youtube.com/watch?v=qucWOkZp0Uw</a> 
Full Source Code: 
<a href="http://dl.dropbox.com/u/5131616/KidAlarmClockProject%28Source%29.zip" rel="ugc">http://dl.dropbox.com/u/5131616/KidAlarmClockProject%28Source%29.zip</a> 
 
Obviously this doesn't do exactly what you described, but I thought you might be interested in the parts of the code that draw the circular portions. &nbsp;They represent how much time is left until the alarm goes off. &nbsp;The outer red band is how many hours are left. &nbsp;The middle blue band is how many minutes is left. &nbsp;The inner green band is how many seconds are left. &nbsp;In this image, there is 5 hours, 36 minutes, and 15 seconds left: 
<a href="https://filedb.experts-exchange.com/incoming/2014/11_w46/883117/CountDown-Example.jpg" target="_blank" title="5 hours, 36 minutes, 15 seconds left (16 KB)"><img alt="5 hours, 36 minutes, 15 seconds left" class="file-block lazyload" style="max-width: 300px;" data-src="https://filedb.experts-exchange.com/incoming/2014/11_w46/883117/CountDown-Example.jpg" /></a> 
CircularCountdownTimer UserControl: 

<pre><code class="code-100 nolinks" id="code-20-40443225-1">Public Class CircularCountdownTimer

 Private Const OuterHourDistance As Double = 0.98
 Private Const InnerHourDistance As Double = 0.78

 Private Const OuterMinuteDistance As Double = 0.68
 Private Const InnerMinuteDistance As Double = 0.48

 Private Const OuterSecondDistance As Double = 0.38
 Private Const InnerSecondDistance As Double = 0.18

 ' The Target Time to stop at:
 Private _StopHour As Integer ' 0 to 23
 Private _StopMinute As Integer ' 0 to 59
 Private _StopSecond As Integer ' ' 0 to 59

 Private ReadOnly Property Time() As TimeSpan
 Get
 Return New TimeSpan(Me._StopHour, Me._StopMinute, Me._StopSecond)
 End Get
 End Property

 Public Sub SetDuration(ByVal TS As TimeSpan)
 Dim StopTime As DateTime = DateTime.Now.Add(TS)
 _StopHour = StopTime.TimeOfDay.Hours
 _StopMinute = StopTime.TimeOfDay.Minutes
 _StopSecond = StopTime.TimeOfDay.Seconds
 Me.Refresh()
 End Sub

 Private WithEvents Tmr As System.Windows.Forms.Timer

 Private Sub CircularCountdownTimer_Load(sender As Object, e As EventArgs) Handles Me.Load
 ' Double Buffered to reduce flicker
 Me.SetStyle(ControlStyles.UserPaint, True)
 Me.SetStyle(ControlStyles.AllPaintingInWmPaint, True)
 Me.SetStyle(ControlStyles.DoubleBuffer, True)
 Me.SetStyle(ControlStyles.ResizeRedraw, True)
 Me.UpdateStyles()

 Tmr = New System.Windows.Forms.Timer
 Tmr.Interval = 1000
 Tmr.Enabled = True
 End Sub

 Private Sub Tmr_Tick(sender As Object, e As EventArgs) Handles Tmr.Tick
 Me.Refresh()
 End Sub

 Private Sub CircularCountdownTimer_Resize(sender As Object, e As EventArgs) Handles Me.Resize
 Me.Refresh()
 End Sub

 Private Sub CircularCountdownTimer_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
 Dim C As Color
 Dim cx As Single = Me.Width / 2
 Dim cy As Single = Me.Height / 2
 Dim SmallerDimension = Math.Min(Me.Width, Me.Height)
 Dim innerDistance, outerDistance As Single

 Static hourList As New List(Of Point)
 Static prevHour As Integer = -1
 Static minList As New List(Of Point)
 Static prevMin As Integer = -1
 Static secList As New List(Of Point)
 Static prevSec As Integer = -1

 Dim ts As TimeSpan = Me.CalcKillTime.Subtract(DateTime.Now)
 Dim startAngle As Integer = GetHourAngle(12)
 Dim stopAngle As Integer
 Dim ps() As Point

 If ts.Hours &gt;= 1 Then
 C = Color.Red
 stopAngle = GetMinuteAngle(ts.Hours * 5)
 If stopAngle &lt;&gt; prevHour Then
 outerDistance = SmallerDimension * OuterHourDistance / 2
 innerDistance = SmallerDimension * InnerHourDistance / 2
 BuildTimeSlice(hourList, cx, cy, stopAngle, innerDistance, outerDistance)
 prevHour = stopAngle
 End If
 ps = hourList.ToArray
 Using hb As New Drawing2D.HatchBrush(Drawing2D.HatchStyle.Percent10, Color.Black, C)
 e.Graphics.FillPolygon(hb, ps)
 End Using
 e.Graphics.DrawLines(Pens.Black, ps)
 End If
 If ts.Minutes &gt; 0 Then
 C = Color.Blue
 stopAngle = GetMinuteAngle(ts.Minutes)
 If stopAngle &lt;&gt; prevMin Then
 outerDistance = SmallerDimension * OuterMinuteDistance / 2
 innerDistance = SmallerDimension * InnerMinuteDistance / 2
 BuildTimeSlice(minList, cx, cy, stopAngle, innerDistance, outerDistance)
 prevHour = stopAngle
 End If
 ps = minList.ToArray
 Using hb As New Drawing2D.HatchBrush(Drawing2D.HatchStyle.Percent10, Color.Black, C)
 e.Graphics.FillPolygon(hb, ps)
 End Using
 e.Graphics.DrawLines(Pens.Black, ps)
 End If
 If ts.Seconds &gt; 0 Then
 C = Color.LightGreen
 stopAngle = GetMinuteAngle(ts.Seconds)
 If stopAngle &lt;&gt; prevMin Then
 outerDistance = SmallerDimension * OuterSecondDistance / 2
 innerDistance = SmallerDimension * InnerSecondDistance / 2
 BuildTimeSlice(secList, cx, cy, stopAngle, innerDistance, outerDistance)
 prevHour = stopAngle
 End If
 ps = secList.ToArray
 Using hb As New Drawing2D.HatchBrush(Drawing2D.HatchStyle.Percent10, Color.Black, C)
 e.Graphics.FillPolygon(hb, ps)
 End Using
 e.Graphics.DrawLines(Pens.Black, ps)
 End If
 End Sub

 Private Sub BuildTimeSlice(ByVal pList As List(Of Point), _
 ByVal cx As Single, ByVal cy As Single, ByVal MinuteAngle As Integer, _
 ByVal innerDistance As Single, ByVal outerDistance As Single)
 pList.Clear()
 pList.Add(GetPoint(cx, cy, 360, outerDistance))
 For i As Integer = 360 To MinuteAngle Step -6
 pList.Add(GetPoint(cx, cy, i, outerDistance))
 If i Mod 30 = 0 Then
 pList.Add(GetPoint(cx, cy, i, innerDistance))
 pList.Add(GetPoint(cx, cy, i, outerDistance))
 End If
 Next
 pList.Add(GetPoint(cx, cy, MinuteAngle, innerDistance))
 For i As Integer = MinuteAngle To 360 Step 6
 pList.Add(GetPoint(cx, cy, i, innerDistance))
 Next
 pList.Add(GetPoint(cx, cy, 360, outerDistance))
 End Sub

 Private Function GetHourAngle(ByVal hour As Integer) As Integer
 hour = IIf(hour = 0, 12, IIf(hour &lt;= 12, hour, hour - 12))
 Return (-hour + 12) * 30
 End Function

 Private Function GetMinuteAngle(ByVal minute As Integer) As Integer
 Return -6 * (minute - 60)
 End Function

 Private Function GetPoint(ByVal cx As Single, ByVal cy As Single, ByVal angleInDegrees As Single, ByVal distance As Single) As Point
 ' angleInDegrees
 ' Valid values are 0 --&gt; 359 (six degrees = one minute on clock)
 ' draw a line from the center of the circle:
 ' 0 = up
 ' 90 = left
 ' 180 = down
 ' 270 = right

 ' Offset and Invert Angle then Convert Degrees to Radians
 angleInDegrees = -(angleInDegrees + 90) * Math.PI / 180

 ' Compute the point that is at the specified angle from horizontal and at the specifed distance
 Return New Point(cx + distance * Math.Cos(angleInDegrees), cy + distance * Math.Sin(angleInDegrees))
 End Function

 Public Function CalcKillTime() As DateTime
 Dim AM As Boolean = DateTime.Now.Hour &lt; 12
 Dim ts As TimeSpan = Me.Time
 If AM Then
 If DateTime.Now.Hour = 0 AndAlso Me.Time.Hours = 12 Then
 If DateTime.Now.Minute &lt; ts.Minutes Then
 Return DateTime.Today.AddMinutes(ts.Minutes)
 End If
 ElseIf ts &lt; DateTime.Now.TimeOfDay Then
 ts = ts.Add(New TimeSpan(12, 0, 0))
 End If
 Return DateTime.Today.Add(ts)
 Else
 If ts.Hours = 12 Then
 If DateTime.Now.Hour = 12 Then
 If ts &gt; DateTime.Now.TimeOfDay Then
 Return DateTime.Today.Add(ts)
 End If
 End If
 Return DateTime.Today.AddDays(1).AddMinutes(ts.Minutes)
 Else
 ts = New TimeSpan(ts.Hours + 12, ts.Minutes, 0)
 If ts &gt; DateTime.Now.TimeOfDay Then
 Return DateTime.Today.Add(ts)
 Else
 Return DateTime.Today.AddDays(1).Add(New TimeSpan(ts.Hours - 12, ts.Minutes, 0))
 End If
 End If
 End If
 End Function

End Class
</code></pre>
</div>

CountDown-Example.jpg

<div>
Hi sorry for the long wait, 
Thanks this is perfect
</div>

<div>
<div class="content wysiwyg-content">
Hi EE, 
 
In VB.NET, I would like to have on my form a progress bar that decreases. 
Lets say I tell the form that the timer is 4 minutes.. I would like the progress abr to decreases to zero at 4mins and it would start Green and going yellow up to red once the timer reaches lets say 3mins or 1/3 left... 
 
can you help me ? 
 
Either a bar or a kind of circle like a clock with a line going clockwise
</div>
</div>

Hi EE,

In VB.NET, I would like to have on my form a progress bar that decreases.
Lets say I tell the form that the timer is 4 minutes.. I would like the progress abr to decreases to zero at 4mins and it would start Green and going yellow up to red once the timer reaches lets say 3mins or 1/3 left...

can you help me ?

Either a bar or a kind of circle like a clock with a line going clockwise

Create a progress bar for timer

Visual Basic .NET (VB.NET) is an object-oriented programming language implemented on the .NET framework, but also supported on other platforms such as Mono and Silverlight. Microsoft launched VB.NET as the successor to the Visual Basic language. Though it is similar in syntax to  Visual Basic pre-2002, it is not the same technology,

Visual Basic.NET

The .NET Framework is not specific to any one programming language; rather, it includes a library of functions that allows developers to rapidly build applications. Several supported languages include C#, VB.NET, C++ or ASP.NET.

.NET Programming

Microsoft Visual C++ (often abbreviated as MSVC or VC++) is an integrated development environment (IDE) product from Microsoft for the C, C++, and C++/CLI programming languages. It features tools for developing and debugging C++ code, especially code written for the Microsoft Windows API, the DirectX API, and the Microsoft .NET Framework. Many applications require redistributable Visual C++ packages to function correctly and are often installed independently of applications, allowing multiple applications to make use of the package while only having to install it once