You can create an annotation that resembles a stair step. For example, you can try this code with the Measurement Studio 6.0 upgrade or the
Measurement Studio 6.0 evaluation:
Private Sub Form_Load()
Dim annotation As CWAnnotation
Set annotation = CWGraph1.Annotations.Add
annotation.SetBuiltinStyle (cwAnnotationStyleLine)
annotation.CoordinateType = cwAxesCoordinates
Dim xPoints(6) As Double
Dim yPoints(6) As Double
Dim i As Integer
Dim x As Integer
Dim y As Integer
x = 2
y = 2
For i = 0 To 6
xPoints(i) = x
yPoints(i) = y
If (i Mod 2) = 0 Then
y = y + 2
Else
x = x + 2
End If
Next
annotation.Shape.LineColor = RGB(255, 0, 0)
annotation.Shape.SetCoordinates xPoints, yPoints
End Sub
See the attachment for a screenshot of what this example looks like.
- Elton