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


--
timspier
------------------------------------------------------------------------
timspier's Profile: http://www.excelforum.com/member.php...o&userid=32090
View this thread: http://www.excelforum.com/showthread...hreadid=521311

try . . .

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

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.

Thanks a bunch! Both methods worked great!


--
timspier
------------------------------------------------------------------------
timspier's Profile: http://www.excelforum.com/member.php...o&userid=32090
View this thread: http://www.excelforum.com/showthread...hreadid=521311