Protected Overrides Sub OnPaint(ByVal e As _
      System.Windows.Forms.PaintEventArgs)
 
        Dim dc As Graphics = e.Graphics
        Dim pen1 As New Pen(Color.Red, 10)
 
        pen1.LineJoin = Drawing.Drawing2D.LineJoin.Round
        dc.DrawRectangle(pen1, 100, 50, 200, 140)
 
    End Sub