Create a Sizable Ruler with Position Indicator
http://www.*-*-*.com/

Ruler Control
http://www.*-*-*.com/

--
Ken Halter
MS-MVP-VB
Please keep it in the groups..

A simple example to print lines every 1/4 inch might looke like
the beloe code...  You'll want to dress it up a bit, but this is the
short of it...

Option Explicit

Private Sub Form_Load()

    Form1.Move 0, 0, Screen.Width - 1000, Screen.Height - 1000

    Form1.AutoRedraw = True
    Form1.ScaleMode = vbInches
    Form1.ScaleWidth = 8.25
    Form1.ScaleHeight = 11
    Form1.FontName = "Tahoma"
    Form1.Font.Size = 8

    Dim i As Single

    For i = 0 To 11 Step 0.25
        Form1.CurrentX = 0#
        Form1.CurrentY = i
        Form1.Print i
        Form1.Line (0, i)-(ScaleWidth, i)
    Next i

    For i = 0 To 8 Step 0.25
        Form1.CurrentX = i
        Form1.CurrentY = 0.01
        Form1.Print i

        Form1.Line (i, 0)-(i, ScaleHeight)
    Next i
        Form1.Line (i, 0)-(i, ScaleHeight)
End Sub

D.