#Region " MdiClient Paint Handling Class " '
Public Class MdiContainer
Inherits Control
Private WithEvents MdiPane As Control
Public Sub New(ByVal ctl As Control)
MdiPane = DirectCast(ctl, Control)
End Sub
Private Sub MdiPane_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MdiPane.Paint
Dim rect As New Rectangle(0, 0, MdiPane.Width, MdiPane.Height)
Dim b As New System.Drawing.Drawing2D.LinearGradientBrush(rect, Color.FromArgb(Color.Violet.A, Color.Violet.R, Color.Violet.G, Color.Violet.B), Color.FromArgb(255, 0, 72, 160),
Drawing2D.LinearGradientMode.Horizontal Or Drawing2D.LinearGradientMode.ForwardDiagonal)
e.Graphics.FillRectangle(b, rect)
e.Graphics.Dispose()
End Sub
End Class