sub main()
??????Dim MyPoint as new Point
??????MyPoint.Id = "TIME"????????' Set the Id
??????MyPoint.OnChange??????????????' Request the value on change
??????MyPoint.GetNext????????????????' The current value is returned immediately.
??????if MyPoint.GetNext(1000)??then????' Wait 1 second for the next value.
????????????MsgBox MyPoint.Value????????????????' Display the value.
??????Else
????????????MsgBox "Timeout"????????????????????????' Point didn't change in one second.
??????end if
end sub
|