' get preset geometry data

    Dim config As Editorial.EditorialConfig = Editorial.EditorialLogin.Get().Config

    Dim t As Short = 0

    For Each geopreset As TeraDP.GN4.Editorial.GeoPreset In config.GeoPresets.GeoPresetsList

      papname = geopreset.Name

      ne_papCB.Items.Add(New IdName(t, papname))

      t += 1

    Next