Propertygrid refresh in a pane

I have created a public function that updates de property grid...

 

This code is in frmpropertygrid

 

Public Sub CarregaGrelhaDados(ByVal strNomeTabela As String, Optional ByVal strDados As Variant)

Dim category As PropertyGridItem
Dim item As PropertyGridItem

 

  frmPropertyGrid.wndPropertyGrid.ToolTipContext.Style = xtpToolTipLuna
  frmPropertyGrid.wndPropertyGrid.ShowInplaceButtonsAlways = False
  frmPropertyGrid.wndPropertyGrid.Categories.Clear
  
  Set category = frmPropertyGrid.wndPropertyGrid.AddCategory(objLangDef(51).strString)
  For i = 1 To UBound(objTipoDados)
  arrTipoDados = Split(objTipoDados(i), "|")
  arrToolTips = Split(objToolTips(i), "|")
  Select Case arrTipoDados(2)
    Case "bigint": IntTipo = PropertyItemNumber
    Case "int": IntTipo = PropertyItemNumber
    Case "varchar": IntTipo = PropertyItemString
  End Select
  If IntTipo = PropertyItemNumber Then
    strAux = arrTipoDados(1)
    Set item = category.AddChildItem(PropertyItemNumber, strAux, 10)
  Else
    strAux = arrTipoDados(1)
    Set item = category.AddChildItem(PropertyItemString, strAux, "100; 100")
  End If
  If arrTipoDados(4) = "0" Then
    item.ReadOnly = True
  Else
    item.ReadOnly = False
  End If
  item.ToolTip = arrToolTips(1)
  item.Expanded = True
  category.Expanded = True
  Next i

End Function

 

Thanks!