Line Thickness in Report
I am using something similar to the following in report & a module to draw a elipse around a field. I want to increase the thickness of the line but have had problems. I've fiddled with drawwidth without success. Any suggestions?
Private Sub Detail_Format(ByRef intCancel As Integer, _
ByRef intFormatCount As Integer)
If Me.txtXYX > 500 Then
HighlightControl Me.txtXYZ, vbRed, 0.35
Option Compare Text
Public Sub HighlightControl(ByRef ctlControl As Control, _
ByVal lngColour As Long, _
ByVal sngAspect As Single)
' Remove the current border.
.BorderStyle = 0
' Draw the ellipse.
.Parent.Circle (.Left + .Width / 2, _
.Top + .Height / 2), _
.Width / 2 + 50, _
lngColour, , , _