Cant enter multiple lines Multiline control???????

Private Sub Form_Load()
   Dim itemP As PropertyGridItem
   Dim objCat As PropertyGridItem
                       
   With Me.PropertyGrid1
      .VariableItemsHeight = True
      Set objCat = .AddCategory("Test")
   End With
   
   Set itemP = objCat.AddChildItem(PropertyItemString, "hi", "")  ' Don't use PropertyItemMultilineString
                                                                  ' it seems to just give you a multiline dropdown
                                                                  ' The dropdown allows for unlimited lines no matter what
                                                                  ' and the grid cell seems to only allow for a single line
   With itemP
      .EditStyle = &H1000  ' &H1000 = Want return style (so user doesn't have to pres Ctrl+Enter)
                           ' Don't use EditStyleVScroll unless you want the user
                           ' to be able to enter unlimited lines of text
      .MultiLinesCount = 3 ' Allow the regular string cell to be three lines high.
   End With
End Sub