How can i select a component by id in Assembly?

My Component Name =>Part1

My Assembly Name=> aaa

I tryed this code.. This code working in macro but not working at VB.NET APP..

Dim swApp As Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _

Application.SldWorks

Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID2("Part1-1@aaa", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

End Sub

Thanks