ScheduleField.SetStyle not working as I would expect

I'm writing some code to modify the style of some cells in an existing schedule.  My code looks somethng like this.

Snippet

Private Sub test(field As ScheduleField)    Dim style = New TableCellStyle    style.FontHorizontalAlignment = HorizontalAlignmentStyle.Right    field.SetStyle(style)    Debug.Print(field.GetStyle.FontHorizontalAlignment.ToString)End Sub

My debug.print statment prints "Center" everytime, which is unexpected to me.  What am I missing? All I'm trying to do is right align all the columns in a schedule.  Is there a better approach I should be taking?

I'm using 20150704_0715(x64), update release 9.  Thanks!