DoubleValue example for Visual Basic

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

   RasterVariant.Type = VALUE_DOUBLE
   RasterVariant.DoubleValue = d