To get rid of the True & False constraints just call Item.Constraints.Remove before adding constraints "Yes" & "No"

 

Or

 

The propertyGridItemBool actually has 2 constraints already so you could:

 

Dim Item As PropertyGridItem
Set Item = Category.AddChildItem(PropertyItemBool, "Bool", 0)
        Item.Constraints(1).Caption = "Yes"
        Item.Constraints(2).Caption = "No"
       

 

but you aren't able to select Yes  I would expect this to work but it doesn't

 

 

Better use Enum instead but then again you have to check value in ValueChanged event.

 

Dim Item As PropertyGridItem
Set Item = Category.AddChildItem(PropertyItemEnum, "Enum", "")
      Item.Constraints.Add "Yes", True                                                    'for readability actual value = -1
      Item.Constraints.Add "No", False                                                    'for readability actual value = 0

      Item.Flags = 0                                                                                  'Only allow selection with arrow

      Item.Id = PROPITEM_ENUM

 

 

Private Sub wndPropertyGridFiles_ValueChanged(ByVal Item As XtremePropertyGrid.IPropertyGridItem)

        Select case Item.Id

            Case PROPITEM_ENUM

                Debug.Print CBool(Item.Value)

        End Select

End Sub

 

Hope this helps