Private Sub bunifuShapes1_ShapeChanged(ByVal sender As Object, ByVal e As Bunifu.UI.WinForms.BunifuShapes.ShapeChangedEventArgs)
If e.Shape = Bunifu.UI.WinForms.BunifuShapes.Shapes.Circle Then
bunifuShapes1.FillColor = Color.DodgerBlue
bunifuShapes1.BorderColor= Color.DodgerBlue
shapeBunifuLabel.Text = "Circle"
ElseIf e.Shape = Bunifu.UI.WinForms.BunifuShapes.Shapes.Rectangle Then
bunifuShapes1.FillColor = Color.Transparent
bunifuShapes1.BorderColor = Color.FromArgb(64, 64, 64)
shapeBunifuLabel.Text = "Rectangle"
ElseIf e.Shape = Bunifu.UI.WinForms.BunifuShapes.Shapes.Line Then
bunifuShapes1.FillColor = Color.FromArgb(64, 64, 64)
shapeBunifuLabel.Text = "Line"
ElseIf e.Shape = Bunifu.UI.WinForms.BunifuShapes.Shapes.Polygon Then
bunifuShapes1.FillColor = Color.Transparent
bunifuShapes1.BorderColor = Color.FromArgb(64, 64, 64)
shapeBunifuLabel.Text = "Polygon"
ElseIf e.Shape = Bunifu.UI.WinForms.BunifuShapes.Shapes.Square Then
bunifuShapes1.FillColor = Color.Transparent
bunifuShapes1.BorderColor = Color.DodgerBlue
shapeBunifuLabel.Text = "Square"
bunifuShapes1.FillColor = Color.Transparent
bunifuShapes1.BorderColor = Color.FromArgb(64, 64, 64)
shapeBunifuLabel.Text = "Oval"