Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim LinePlacement As Integer
Me.DrawWidth = 7
'Me.Width=1065, that is, narrow enough to fit 8 columns.
For i = 1 To 8
LinePlacement = (Me.Width) * i
Me.Line (LinePlacement, 0)-Step(0, Me.Detail.Height)
Next
End Sub