Change Selected Face Appearance in Part

[ngdnam88]

Dear All,

Could you help me the iLogic Code to change the face's color in the part?

I tried this code but I got the error message:

Dim oDOC As PartDocument = ThisApplication.ActiveDocument
Dim oFACE = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "Select an Item")
Dim oColour As String = "Red"
Dim oStyle As RenderStyle = oDOC.RenderStyles.Item(oColour) 
oFACE.SetRenderStyle(kOverrideRenderStyle, oStyle)

 The Error

Thanks!

[JelteDeJong · Accepted solution]

I have altered your code a bit and it works for me.

Dim oDOC As PartDocument = ThisApplication.ActiveDocument
Dim oFACE As Face = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "Select an Item")
Dim oColour As String = "Red"
Dim oStyle As RenderStyle
Try
	oStyle  = oDOC.RenderStyles.Item(oColour)
Catch ex As Exception
	MsgBox("Style 'Red' could not be selected")
	return
End Try
oFACE.SetRenderStyle(StyleSourceTypeEnum.kOverrideRenderStyle, oStyle)

[ngdnam88]

Thanks @JelteDeJong 
The key of iLogic Code is: 

oFACE.SetRenderStyle(StyleSourceTypeEnum.kOverrideRenderStyle, oStyle)

 Thanks for your help!