DoubleItemValue example for Visual Basic

   Dim RasterVariant As New LEADRasterVariant_U
   Dim d As Double
   d = 10

   RasterVariant.Type = VALUE_ARRAY_DOUBLE
   RasterVariant.ItemCount = 2
   RasterVariant.DoubleItemValue(0) = d
   RasterVariant.DoubleItemValue(1) = d * 2