Difference between revisions of "FindFirstAxisParminParms"

Latest revision as of 05:33, 22 April 2017

Function FindFirstAxisParmInParms(SetParms As Parameters) As Parameter
Dim TestStr As String
TestStr = "Origin\X"
For X = 1 To SetParms.Count
    If InStr(SetParms.Item(X).Name, TestStr) <> 0 Then
        Set FindFirstAxisParmInParms = SetParms.Item(X)
        Exit Function
    End If
Next
End Function