Private Sub BunifuCheckbox_CheckStateChanged(ByVal sender As Object, ByVal e As BunifuCheckBox.CheckedChangedEventArgs)
'reference the Bunifu Checkbox object that has raised this event
Dim c As BunifuCheckBox = DirectCast(sender, BunifuCheckBox)
'check the status of the checkbox
If e.CheckState = BunifuCheckBox.CheckStates.Checked Then
' add one value to Bunifu ProgressBar and display the checked task
bunifuProgressBar1.Value+=1
'the second parameter in the Show method gets the text associated with the selected checkbox
bunifuSnackbar1.Show(Me, String.Format("Task '{0}' is now checked",c.BindingControl.Text), BunifuSnackbar.MessageTypes.Success, 2100,Nothing,BunifuSnackbar.Positions.BottomCenter)
tasksBunifuLabel.Text = String.Format("{0} out of 7 tasks are complete...", bunifuProgressBar1.Value)
' subtract one value to Bunifu ProgressBar and display the unchecked task
bunifuProgressBar1.Value-=1
tasksBunifuLabel.Text = String.Format("{0} out of 7 tasks are complete...", bunifuProgressBar1.Value)
'the second parameter in the Show method gets the text associated with the selected checkbox
bunifuSnackbar1.Show(Me, String.Format("Task '{0}' is now unchecked", c.BindingControl.Text), BunifuSnackbar.MessageTypes.Success, 2100, Nothing, BunifuSnackbar.Positions.BottomCenter)
Catch exception As Exception
Console.WriteLine(exception.Message)