You can use the Line method in code. For instance if you want to draw a line
through the order date text box on a report for records where the :
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.ForeColor = vbRed
If Me.OrderDate < #1/1/1997# Then
Me.Line (Me.OrderDate.Left, _
Me.OrderDate.Top + 0.5 * Me.OrderDate.Height) _
-Step(Me.OrderDate.Width, 0)
End If
End Sub