Add a new User Control and add these codes in it : Dim _Myrr As Integer Public Property rr As Integer Set(value As Integer) _Myrr = value End Set Get Return _Myrr End Get End Property Private Sub DrawProgress(g As Graphics, rect As Rectangle, percentage As Single) 'work out the angles for each arc Dim progressAngle =