Can someone help me figure out how to change the color of my lines?

Sub DrawFreeform()
Call DeleteShapes
Dim ws As Worksheet, fb As FreeformBuilder
Set ws = ActiveSheet
BackBottomY = 300
FrontBottomY = 350
FrontTopY = 100
BackTopY = 50
BackTopX = 50
BackBottomX = 50
FrontBottomX = 150
FrontTopX = 150
BackTopY_No_Touch = 51

Set fb = ws.Shapes.BuildFreeform(msoEditingAuto, 50, 50)
fb.AddNodes msoSegmentLine, msoEditingAuto, BackBottomX, BackBottomY
fb.AddNodes msoSegmentLine, msoEditingAuto, FrontBottomX, FrontBottomY
fb.AddNodes msoSegmentLine, msoEditingAuto, FrontTopX, FrontTopY
fb.AddNodes msoSegmentLine, msoEditingAuto, BackTopX, BackTopY_No_Touch
fb.ConvertToShape


End Sub