Visual Basic

Public Class myRuler
    'Inherits System.Windows.Forms.UserControl


    Private Sub myRuler_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim g As Graphics = e.Graphics
        Dim p As Point = New Point(0, 0)
        Dim s As Size = New Size(Me.Width, Me.Height)
        Dim curRec As Rectangle = New Rectangle(p, s)
        g.DrawRectangle(Pens.Black, curRec)
        'Converting Pixels to Twips
        Dim ptoTwip As Single = (Me.Width * 15)
        'Twips to Inches
        Dim twipToInches As Single = CSng(ptoTwip / 1440)
        Dim b As Single = 0
        'Draw Numders 1 2 3 etc.
        For a As Single = 0 To twipToInches
            g.DrawString(a, New Font("Arial", 10), Brushes.Black, b, 10)
            b = b + 96 '96 192 288
        Next
        '  Dim ptomm As Integer = Me.Width / 3.779527559
        'Draw Lines between inches, and long line every 5th
        Dim y As Single = 10.0F
        For x As Single = 0 To b Step 9.6
            g.DrawLine(Pens.Black, x, 0, x, y)
            'MessageBox.Show(x)
            If x Mod 2 = 0 Then
                y = 15
            Else
                y = 10
            End If
        Next
    End Sub



End Class