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!