Dim asm As AssemblyDocument = ThisDoc.Document
Dim occ As ComponentOccurrence = asm.SelectSet.OfType(Of ComponentOccurrence).FirstOrDefault()
If occ Is Nothing Then Return
asm.SelectSet.Clear()
If occ.ParentOccurrence Is Nothing Then
	asm.SelectSet.Select(asm.ComponentDefinition)
Else
	asm.SelectSet.Select(occ.ParentOccurrence)
End If