sub main()
??????Dim qlow as Double
??????Dim qhigh as Double
??????Dim qstr as String
??????Dim MyPoint as new Point ????????????' Declare the point object
??????MyPoint.Id = "QINT" ??????????' Set the point id
??????ret = MyPoint.GetUQuadIntValue(qhigh,qlow)
????qstr = StringFromUQINT(qhigh,qlow) ??'Get the value as ??????
???????????????????????????????????????????????????????string from two doubles qhigh and ??
???????????????????????????????????????????????????????????qlow
??????????????????????????????
End Sub
|