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)
