type casting of array of solidworks object

Hi All
In vb6 I could auto cast
variant containing multiple solidworks object
to an array of solidworks type geometry

How can i do that in vb.net

For instance

Dim swApp As SldWorks.SldWorks
Dim part As ModelDoc2
Dim sk As Sketch
Dim vsegs As Variant ' variant to recive segments
Dim oseges() As SketchSegment ' array of sketchsegments
Sub main()

Set swApp = Application.SldWorks
Set part = swApp.ActiveDoc
Set sk = part.GetActiveSketch2
vsegs = sk.GetSketchSegments ' getting the segments into a variant
'==== this is the problematic line in vb.net it works greate invb6
oseges = vsegs ' autocasting of sw objects into an arry ofsketchsegments
' == the only way I could have made it is by casting segments oneby one
'is there a better way
End Sub

It looks like its related to the fact that an object can be anarray of mixed objects

Any Idea ?
Regards
Dudi Peer
ECI
SolidworksApi macros