Pin.GetName(ByVal Flag As VdNameType) As String
This is of the form VdNameType Enum.
Regardless of the value of this argument, the method returns only the name of the pin, not the hierarchical path.
As String. A string containing the name of the pin.
For Each objComp in app.ActiveView.Query(VDM_COMP, VD_ALL)
For Each objConn in objComp.GetConnections
Set objPin = objConn.CompPin.Pin
objName = objPin.GetName(SHORT_NAME)
app.AppendOutput("COM Automation","GetName No1 = " + CStr(objName))
objName = objPin.GetName(FULL_PATH_NAME)
app.AppendOutput("COM Automation","GetName No2 = " + CStr(objName))
objName = objPin.GetName(FULL_PATH_FROM_BLOCK)
app.AppendOutput("COM Automation","GetName No3 = " + CStr(objName))
Exit For
Next
Next