Dim b2 As New System.Drawing.Drawing2D.LinearGradientBrush(bounds, msBackgroundColorStr, msBackgroundColorEnd, 0, False)
b2.WrapMode = WrapMode.TileFlipY
g.FillRectangle(b2, bounds)
b2.Dispose()
msBackgroundColorStr 是开始颜色
msBackgroundColorEnd 是结束颜色
G 是你窗口的绘制对象