Me.Circle Method Border Thickness 1

[bajo71]

Hello,

Using VBA to draw a circle, I am trying to make the circle thicker, 1pt width. Right now it draws a hairline thickness and the printer I have spots out in certain places.

Here's a portion of the code ...I tried something like
Me.BorderWidth = 1, but does not work.

Dim ctl As Control
Dim lngCX As Long
Dim lngCY As Long
Dim lngRad As Long
Dim tmpLbl As String, tmpLblO As String

For Each ctl In Detail.Controls
If ctl.ControlType = acOptionButton And Right(ctl.Parent.Name, 4) <> "Mask" Then 'Option Button = 105
lngCX = ctl.Left + ctl.Width / 3
lngCY = ctl.Top + ctl.Height / 3
lngRad = ctl.Width / 3
' draw outer circle
Me.FillStyle = 1 ' 1 = transparent
Me.Circle (lngCX, lngCY), lngRad
' fill inner circle
Me.FillStyle = 0 ' 0 = opaque
If ctl.Parent = True And ctl.OptionValue = -1

 

[dhookom]

You need to set the drawwidth like:
Me.DrawWidth = 15


Duane
Hook'D on Access
MS Access MVP