> ' 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 >>
Dim loPen As Pen = New Pen(Color.FromArgb(172, 168, 153), 1)