Use the Query method on the view object (Application.ActiveView), to get the collection of components (selected or all).
From the component object, use the Connections property to get a collection of connection objects, which is linkage between component pin and net segments.
Just something quick and dirty but could be a decent example for anyone else that migh be having difficulty. If I miss understood you John and theres an easier way let me know please.
Private Sub getCompInfo()
vdview = appDX.ActiveView
Dim pinNum As String
Dim pinName As String
Dim netName As String
Dim compObj As ViewDraw.IVdObjs
Dim comp As ViewDraw.Component
Dim pinObj As ViewDraw.IVdObjs
Dim pin As ViewDraw.Connection
'Get the selected Symbol
compObj = vdview.Query(ViewDraw.VdObjectTypeMask.VDM_COMP, ViewDraw.VdAllOrSelected.VD_SELECTED)
comp = compObj.Item(1)
'Get the connections(pins) on the symbol
pinObj = comp.GetConnections()
'Step through each connection and get the pin number, pin name, and the net name connected to the pin
For x = 1 To pinObj.Count
pin = pinObj.Item(x)
pinNum = pin.CompPin.Number 'Pin Number
pinName = pin.CompPin.Pin.GetName(ViewDraw.VdNameType.SHORT_NAME) 'pin Name
netName = pin.Net.GetConnectedNetName(pin.Segment) 'Net name connected to pin
MsgBox(pinNum & " | " & pinName & " | " & netName)