Line Thickness in Report

[AN60]

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
End If


Module


Option Explicit
Option Compare Text


Public Sub HighlightControl(ByRef ctlControl As Control, _
ByVal lngColour As Long, _
ByVal sngAspect As Single)

With ctlControl
' Remove the current border.
.BorderStyle = 0

' Draw the ellipse.
.Parent.Circle (.Left + .Width / 2, _
.Top + .Height / 2), _
.Width / 2 + 50, _
lngColour, , , _
sngAspect
End With

End Sub

 

[ChrisO]

ctlControl.Parent.DrawWidth = 100

 

[AN60]

Thanks ChrisO that's just what I wanted. About 10-20 is ideal for me.