[请问]怎么绘制椭圆形或其他不规则的窗体及窗体渐变效果

[请教]如何绘制椭圆形或其他不规则的窗体及窗体渐变效果?
请教高手:

可否给个例子或者链接,实现:
(1)椭圆形窗体;
(2)窗体出现时有渐变的效果,而不是一下子出现;

谢谢~~

[解决办法]
请参考创建不规则窗体
[解决办法]

VB.NET code

 Dim mypointf1 As PointF() = {New PointF(470, 150), New PointF(670, 150), New PointF(680, 250), New PointF(675, 350), New PointF(660, 430), New PointF(670, 490), New PointF(470, 490)}        Dim mypointf As PointF() = {New PointF(6, 87), New PointF(10, 80), New PointF(20, 76), New PointF(67, 76), New PointF(54, 53), _                New PointF(52, 40), New PointF(54, 36), New PointF(60, 23), New PointF(71, 19), New PointF(86, 17), New PointF(150, 44), New PointF(176, 57), New PointF(185, 64), New PointF(198, 74), _                New PointF(200, 76), New PointF(250, 76), New PointF(454, 76), New PointF(463, 79), _                New PointF(466, 81), New PointF(469, 88), New PointF(469, 150), New PointF(469, 545), New PointF(465, 553), New PointF(455, 557), New PointF(233, 557), _                New PointF(21, 557), New PointF(11, 553), New PointF(6, 544), New PointF(6, 221), New PointF(6, 90)}        Dim myregn As New System.Drawing.Drawing2D.GraphicsPath        myregn.AddLines(mypointf)        myregn.CloseFigure()        myregn.AddLines(mypointf1)        myregn.CloseFigure()        Me.Region = New Region(myregn)        Me.Width = 469        Dim mybitmap As System.Drawing.Bitmap = Me.BackgroundImage        Me.BackColor = mybitmap.GetPixel(400, 300)        mybitmap = Nothing        Me.Region = New Region(myregn