Change color of shape by VBA code

Hi there,
is there any way to change by VBA the color of a certain shape of a specific device on a e.g. PID-drawing ?
I tried

If Not oSheet.IsOpened Then Call oSheet.Open(aucSheetOpenAutosave)
Set moObj = oSheet
ReDim atParamData(1 To 3)
atParamData(1).qual = aucOpExecSheetSetSymbolColor

atParamData(2).qual = aucArgExecSheetRef2Symbol 'symbol reference
atParamData(2).Val = strID

atParamData(3).qual = aucArgExecSheetLineColor
atParamData(3).Val = vbRed

Call Utils.ExecuteSheetOperation(moObj, atParamData)
Call oSheet.Close


where strID was GUID of ShapeSymbol

Thanks for helping,
Sven