or
lblDateTime.Text =
"<html>"
& Format(
CStr
(DateTime.Now),
"Long Date"
) &
"<br><font=Arial Black><size=34><color="
& darkNight.ToArgb &
">"
& Format(
CStr
(DateTime.Now),
"Short time"
)
Dim
primitive
As
TextPrimitive =
DirectCast
(
Me
.lblDateTime.RootElement.Children(0).Children(2).Children(1), TextPrimitive)
primitive.Shadow =
New
Telerik.WinControls.Paint.ShadowSettings(
New
Point(2, 2), Color.Red)
Posted 4 hours ago (permalink)