vType example for Visual Basic

Dim RasterVariant As New LEADRasterVariant_U

RasterVariant.EnableMethodErrors = False
RasterVariant.vType = VALUE_SHORT
RasterVariant.ShortValue = 5

If RasterVariant.Error = 0 Then
   MsgBox "the short value is set correctly"End If