Imports Bunifu.UI.WinForms
Imports System.Windows.Forms
Partial Public Class Form1
Private bunifuCircleProgress As New BunifuCircleProgress()
Private timer As New Timer()
Private progress_value As Integer = 0
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
bunifuCircleProgress.IsPercentage = True
bunifuCircleProgress.Animated =False
bunifuCircleProgress.ValueByTransition = 0
bunifuCircleProgress.Location = New Point(300, 100)
'set the timer properties and its timer tick event
AddHandler timer.Tick, AddressOf Timer_Tick
Me.Controls.Add(bunifuCircleProgress)
Private Sub Timer_Tick(ByVal sender As Object, ByVal e As EventArgs)
If progress_value < 57 Then
bunifuCircleProgress.ValueByTransition = progress_value