VB.NET GetSelectedBeams

Please help me.

Are using the GetSelectedBeams.
Return the correct values in the VBA, VB.NET does not correct.

#exsample 1  STAAD VBA

 Dim nSelectedObjects As Long
 Dim setOfObjects() As Long

 Set staad = GetObject(,"StaadPro.OpenSTAAD")

 nSelectedObjects = staad.Geometry.GetNoOfSelectedBeams()

 ReDim setOfObjects(nSelectedObjects) As Long

 staad.Geometry.GetSelectedBeams setOfObjects True

#exsample 2 VB.NET

Dim nSelectedObjects As Long
Dim setOfObjects() As Long

Dim staad As Object = GetObject(, "StaadPro.OpenSTAAD")

nSelectedObjects = staad.Geometry.GetNoOfSelectedBeams()

ReDim setOfObjects(nSelectedObjects)

staad.Geometry.GetSelectedBeams(setOfObjects, True)

.... setOfObjects(0) in 0.

Why? If anyone know please tell me.

Regards.

using visualstudio 2010(VB.net) & staadproV8i SS2(ver 20.07.07.19)