Folder browse button in Grid?

Just code from sample: (Actually why nobody check them???)

...

    Set ItemDirectory = Category.AddChildItem(PropertyItemString, "Directory", "C:\")
    ItemDirectory.Flags = ItemHasEdit + ItemHasExpandButton
    ItemDirectory.Id = ITEM_DIRECTORY
 

...

Private Sub wndPropertyGrid_InplaceButtonDown(ByVal Item As XtremePropertyGrid.IPropertyGridItem)
   
    Debug.Print "Inplace button down. Item.Caption = "; Item.Caption
   
    If Item.Id = ITEM_DIRECTORY Then
        Dim Shell As Object
        Dim FolderItems As Object
        Dim FolderItem As Object
       
        Set Shell = CreateObject("Shell.Application")
        Set FolderItems = Shell.BrowseForFolder(Form1.hWnd, "Directories", 0, "c:\")
        If Not (FolderItems Is Nothing) Then
             Set FolderItem = FolderItems.Items.Item
             Item = FolderItem.Path
        End If
        Set Shell = Nothing
    End If
End Sub