Chuck,
Here is code actually using the dialog box as you suggested...
If OptionsDlg.DesignDlg.LineTraceAngle = 2 Then
OptionsDlg.DesignDlg.LineTraceAngle = 0
OptionsDlg.Apply.Click()
Else
OptionsDlg.DesignDlg.LineTraceAngle = 2
OptionsDlg.Apply.Click()
End If
...two less lines of code.
Thanks again!