測量ネットワークは、AeccSurveyProject.Networks コレクションの Create メソッドで作成します。
Dim oSurveyNetwork As AeccSurveyNetwork Set oSurveyNetwork = oSurveyProject.Networks.Create("Net_01")