Dim g As Graphics = e.Graphics
            Dim rectm As New Rectangle(515, 8, 8, 6)
            Dim Pen1m As New Pen(Color.LightBlue, 5)
            g.DrawRectangle(Pen1m, rectm)
            g.FillRectangle(Brushes.LightBlue, rectm)

VB@rchiv its the Best