VT

(Available in 01 TS COM - TS_COM_VariantArg)

Source

ACCESS VT AS SHORT PASCAL CLASS TS_VariantArg
LOCAL siVT AS SHORT
   TSTrace Enter
   IF SELF:_WinVariantArgBot<>NULL_PTR
      siVT:=SELF:_WinVariantArgBot.vt
   ELSE
      siVT:=VT_ERROR
   END
   TSTrace Leave
RETURN siVT