Private Fcolor As Color = Color.White ''前景色
Private Tcolor As Color = Color.FromArgb(213, 242, 250) ''背景色
Private Direct As LinearGradientMode = LinearGradIEntMode.Vertical ''漸變方向
Private g As Graphics
Private Sub Form_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
g = e.Graphics
Dim lb As New LinearGradientBrush(ClIEntRectangle, Fcolor, Tcolor, Direct)
g.FillRectangle(lb, ClIEntRectangle) ''繪制窗口背景
End Sub