Is it possible to place multiple Annotations on the same cwgraph?

Question

Hi,
I'm trying to add multiple vertical bars (annotations) on a cwgraph.
Here is the code that I have for a command button:
Private Sub Annotation_Click()
    S = S + 2
    CWGraph1.Annotations.Add
    CWGraph1.Annotations.Item(1).Shape.XCoordinates = Array(S, S)
    CWGraph1.Annotations.Item(1).Shape.YCoordinates = Array(-10, 10)
End Sub
What happens when I click the button, is a new annotation is added with respect to S, but the last annotation is removed.  Can someone point out the error of my ways?
Thanks,
Max

Answer 1

The annotation isn't removed. What's happening is that you're always updating
the properties for the first annotation that you added, and the same
annotation is updated with the new coordinates each time that you click the
button. If you change your code to
always use the last index into the Item property, you will see the expected
results. For example:
Private Sub Annotation_Click()
S = S + 2
CWGraph1.Annotations.Add
Dim index as Integer
index = CWGraph1.Annotations.Count
CWGraph1.Annotations.Item(index).Shape.XCoordinates = Array(S, S)
CWGraph1.Annotations.Item(index).Shape.YCoordinates = Array(-10, 10)
End Sub
Alternatively, you can use the return value of Add to update the most recently
added annotation. For example:
Private Sub Annotation_Click()
S = S + 2
Dim annotation As CWAnnotation
Set annotation = CWGraph1.Annotations.Add
annotation.Shape.XCoordinates = Array(S, S)
annotation.Shape.YCoordinates = Array(-10, 10)
End Sub
- Elton