八百里加急----用程序劃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磅的線？
先謝謝各位兄弟了