' Draw the squares for the status bar
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim loGraphic As Graphics = e.Graphics
        Dim loPen As Pen = New Pen(Color.Blue, 1)
        loGraphic.DrawLine(loPen, 0, 623, 200, 623)
    End Sub