在Access VB中调整线

Question

我已经看到了许多有关在细节部分展开时如何调整线条高度的问题/答案；但是，关于线宽什么都没看到。

我用以下方法调整高度：

Dim CtlDetail As Control
Dim intLineMargin As Integer

intLineMargin = 0

For Each CtlDetail In Me.Section(acDetail).Controls
    With CtlDetail
        If CtlDetail.Name = "Line192" Or CtlDetail.Name = "Line193" Then
        Me.Line ((.Left + .Width + intLineMargin), 0)-(.Left + .Width + intLineMargin, Me.Height)
        End If
    End With
Next

Set CtlDetail = Nothing

End Sub

但是，尽管这条线确实调整了高度，但宽度却恢复为“细线”，而不是我喜欢的点。

感谢我的帮助。