| Zitat: |
|
Case "set_an"
For iSubIndex = 0 To iAnaOutCount - 1 If strAnaOutFunction(iSubIndex) = strSelection Then SetAnaOut iIndex, Slider(iSubIndex).Value Exit For End If Next End Select |
Ist mir nämlich auch schon aufgefallen, daß der 2. Ausgang nicht tut.
zumindest erstmal die Funktion als Slider die Ausgänge zu regeln.