如何用语句控制报表内划线的粗细

我用如下语句设计划线后，发现line没有粗细控制，如何进行控制？

Private Sub Report_Page()
Dim rpt As Report, lngColor As Long
Dim i As Integer
Set rpt = Reports![培训主题记录]
rpt.ScaleMode = 7
lngColor = RGB(0, 0, 0)
rpt.Line (1.62, 8.55)-(5.6, 27.65), lngColor, B
rpt.Line (5.6, 8.55)-(12.82, 22.955), lngColor, B
rpt.Line (12.82, 8.55)-(19.07, 22.955), lngColor, B
rpt.Line (1.6, 8.55)-(19.07, 27.65), lngColor, B
rpt.Line (1.6, 22.955)-(5.58, 22.955), lngColor    'line语句中，没有选项“B”表示单线
For i = 1 To 18
rpt.Line (5.6, 8.55 + (i - 1) * 0.8)-(19.07, 8.55 + i * 0.8), lngColor, B
Next i
End Sub