ShortValue example for Visual Basic

   Dim RasterVariant As New LEADRasterVariant_U
   
   RasterVariant.EnableMethodErrors = False
   RasterVariant.Type = VALUE_SHORT
   RasterVariant.ShortValue = 5
   If RasterVariant.Error = 0 Then
      MsgBox "the short value is set correctly"
   End If