property manager title

is it possible to get the title (feature name or entity name) of the currently open property manager?
3d sketch editing is active.

this works (from api help deleted redundant code)

Dim swApp As SldWorks.SldWorks
Dim commandID As Long
Dim pmpTitle As String
Dim isUIActive As Boolean

Sub main()

Set swApp = Application.SldWorks

' Get the command ID if the command is a fillet,
' get the PropertyManager page title if one is active,
' and get whether the user interface is active

swApp.GetRunningCommandInfo commandID, pmpTitle, isUIActive

If pmpTitle <> "" Then 
Debug.Print "Title of PropertyManager page: " & pmpTitle

End If
    
End Sub