Changing Shapes line color using VBA

Thank you Andy
I tried using a similar piece of code earlier that I found searching the internet, but it was without (1) and of course I had no success. I made changes to my code like so and it now works great.

May I ask a couple quick questions?
1. If I were to add a Rectangle to this same sheet, what would I need to add to include this also?
2. This one might be the tricky one. Is it possible to add a Shape.Glow 11Point

Here's a view of the changes I made.

    Application.ScreenUpdating = False
    With Worksheets("Cover Page").Shapes(1).Line

        Select Case True

        Case OptionButton1.Value
            .ForeColor.RGB = RGB(146, 208, 80)

        Case OptionButton2.Value
            .ForeColor.RGB = RGB(120, 220, 255)

        Case OptionButton3.Value
            .ForeColor.RGB = RGB(216, 216, 216)

        Case OptionButton4.Value
            .ForeColor.RGB = RGB(255, 220, 110)

        Case OptionButton5.Value

            .ForeColor.RGB = RGB(250, 100, 95)

        Case OptionButton6.Value
            .ForeColor.RGB = lngColor

        End Select
    End With

I figured out how to select more than 1 type of shape by using array approach.
I changed this part

With Worksheets("Cover Page").Shapes(1).Line

With this

With Worksheets("Cover Page").Shapes.Range(Array("Rounded Rectangle 1", "Rectangle 2")).Line

And now I know how to include additional shapes if needed. I still haven’t figured out how to use Glow?

Hi Andy
I was able to get the code to work when using this approach

Option Explicit

Private Sub CommandButton1_Click()
    Dim wsh As Worksheet
    Dim lngColor As Long
    Dim shpTemp As Shape

    If OptionButton6 Then
        lngColor = ShowColor
        If lngColor = -1 Then
            MsgBox "You didn't select a color!", vbExclamation
            Exit Sub
        End If
    End If

    Glow.Hide

    Application.ScreenUpdating = False

    Set shpTemp = Sheets("Cover Page").Shapes(1)

    With shpTemp.Glow
        .Radius = 11

        Select Case True

        Case OptionButton1.Value
            .Color.RGB = RGB(146, 208, 80)

        Case OptionButton2.Value
            .Color.RGB = RGB(120, 220, 255)

        Case OptionButton3.Value
            .Color.RGB = RGB(216, 216, 216)

        Case OptionButton4.Value
            .Color.RGB = RGB(255, 220, 110)

        Case OptionButton5.Value
            .Color.RGB = RGB(250, 100, 95)

        Case OptionButton6.Value
            .Color.RGB = lngColor

        End Select
    End With

    Application.ScreenUpdating = True

    Unload Glow

    ActiveWorkbook.Save

    MsgBox "Changes have been saved"

End Sub

But when I try to select more than one shape at a time using an array I get an error Run-time error ‘13’, type mismatch

 Set shpTemp = Sheets("Cover Page").Shapes.Range(Array("Rounded Rectangle 1", "Rectangle 2"))

Any idea what it might be?