For Each .Graph.OutEdges (gb.data)
Dim
hGraph
As
Graph
Dim
hStringArray
As
String[]
For Each
hStringArray
In
hGraph.OutEdges
...
Next