Example: SelectedPenScale property

Private Sub SelectNextPen_Click()
Dim nPen As Integer
Dim nAttempt As Integer 
'Jump to end of subroutine
If Trend1.Pens.Count = 0 Then
Exit Sub
End If
'get the currently selected pen
nPen = Trend1.YAxis.SelectedPenScale
For nAttempt = 0 To Trendx1.Pens.Count
nPen = nPen + 1
If nPen > Trendx1.Pens.Count Then
nPen = 1
End If
'only select a visible pen
If Trend1.Pens.Item(nPen).Visible Then
Trend1.YAxis.SelectedPenScale = nPen
Exit For
End If
Next
End Sub