1與0的世界

Public Class Frm漸層表單

    Private Sub Frm漸層表單_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim brush1 As New System.Drawing.Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(0, Me.Height), Color.White, Color.Blue)
        e.Graphics.FillRectangle(Brush1, 0, 0, Me.ClientSize.Width, Me.ClientSize.Height)
    End Sub

    Private Sub Frm漸層表單_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Me.Invalidate()
    End Sub
End Class