AnnGetScalarX example for Visual Basic

   MsgBox "ScalarX: " & LEAD1.AnnGetScalarX (hCont) & ", ScalarY: " & LEAD1.AnnGetScalarY (hCont) & ", OffsetX: " & LEAD1.AnnGetOffsetX (hCont) & ", OffsetY: " & LEAD1.AnnGetOffsetY (hCont)
   LEAD1.AnnSetScalarX hCont, 1.5, False
   LEAD1.AnnSetScalarY hCont, 1.5, False
   LEAD1.AnnSetOffsetX hCont, 10, False
   LEAD1.AnnSetOffsetY hCont, 20, False
   MsgBox "ScalarX: " & LEAD1.AnnGetScalarX(hCont) & ", ScalarY: " & LEAD1.AnnGetScalarY(hCont) & ", OffsetX: " & LEAD1.AnnGetOffsetX(hCont) & ", OffsetY: " & LEAD1.AnnGetOffsetY(hCont)