Agilent Technologies InfiniiVision 5000 Series

Commands by Subsystem 5
Agilent InfiniiVision 5000 Series Oscilloscopes Programmer's Guide 175
myScope.WriteString ":ACQuire:SEGMented:INDex?"
strQueryResult = myScope.ReadString
Debug.Print "Acquisition memory segment index: " + strQueryResult
' Display the segment time tag.
myScope.WriteString ":WAVeform:SEGMented:TTAG?"
dblTimeTag = myScope.ReadNumber
Debug.Print "Segment " + CStr(lngI) + " time tag: " _
+ FormatNumber(dblTimeTag, 12)
Next lngI
Exit Sub
VisaComError:
MsgBox "VISA COM Error:" + vbCrLf + Err.Description
End Sub