VBA shape SpecialEffect and/or BorderColor properties?

[Ark68]

On my userform, I have a textbox (uf1vb1_OPS) that has code written to it when clicked by the user executes code which. I wish to mimic as a button.
By default, the shape's SPECIALEFFECT property is Raised (1- frmSpecialEffectRaised). When the user clicks the shape, I want the button to appear depressed with a green border ...

    With uf1vb1_OPS
        .ForeColor = RGB(160, 160, 160) 'grey
        .SpecialEffect = frmSpecialEffectSunken
        .BorderColor = RGB(0, 153, 0) 'green
    End With

The text in the shape changes to grey, but there is no border let alone a green one.

Am I missing something?

 

[Fluff]

I have a feeling that you will only see the order colour if the effect is "Flat"

 

[Kamolga]

Hi

I think border style is set up on none by default

 With TextBox1      [LEFT][COLOR=#222222][FONT=Verdana].BorderStyle = fmBorderStyleSingle[/FONT][/COLOR][/LEFT]
.BorderColor = RGB(0, 153, 0) 'green
 End With

and that is why you don't see it.

 

[Ark68]

Thank you both for your replies. They were both helpful.
With Kamolga's suggestion, at least there was a green border around the flat textbox that Fluff anticipated.

 

[Kamolga]

Otherwise your text box can change the label of a button...