LongItemValue example for Visual Basic

   Dim RasterVariant As New LEADRasterVariant_U

   RasterVariant.Type = VALUE_ARRAY_LONG
   RasterVariant.ItemCount = 2
   RasterVariant.LongItemValue(0) = 500
   RasterVariant.LongItemValue(1) = 1000