Change label border color at runtime

[timspier]

Is there any way to change a label's border color at runtime? I use the
following code to create two labels, one horizontal and the other
vertical. They are designed to make a cross symbol wherever I click on
an image control. This works great, but I need them to be red instead
of the default grey.

Set Lbl = Controls.Add("Forms.Label.1", "lblLabel" & NumAnnuli,
True)
With Lbl
..Top = Y
..Left = X - 6
..Height = 1
..Width = 12
End With

Set Lbl = Controls.Add("Forms.Label.1", "lblLabel" & NumAnnuli,
True)
With Lbl
..Top = Y - 6
..Left = X
..Height = 12
..Width = 1
End With

 

[MrScience]

try . . .

With Lbl
..Top = Y
..Left = X - 6
..Height = 1
..Width = 12
..BackColor = vbRed

 

[MrScience]

I can't believe it. This is the second time this evening I didn't read
the question carefully enough. You wanted to change the border color,
not the back color.

Here you go . . .
With Lbl
..Top = Y
..Left = X - 6
..Height = 1
..Width = 12
..BorderStyle = 1
..BorderColor = vbRed


Sorry for the confusion.

 

[timspier]

Thanks a bunch! Both methods worked great!