八百里加急----用程序划1磅的线

64382575

Private Sub 主体_Print(Cancel As Integer, PrintCount As Integer)
    Dim Myctr As Variant
    For Each Myctr In Me.Section(acDetail).Controls
    Me.Line ((Myctr.Left), Myctr.Top)-((Myctr.Left + Myctr.Width), Me.Height), RGB(0, 0, 0), B
    Next
End Sub
需要在上面程序里加上什么语句，可以划出1磅的线？
先谢谢各位兄弟了