Как сделать КРАСИВОЕ окно произвольной формы?

[MIT]

Сабж.

В принципе, окна делаются так:
MyBase.Region = New Region(System.Drawing.Drawing2D.GraphicsPath)

Но это не красиво, угловато, да и регион хотя бы с закруленными углами сделать сложно. Поэтому хотелось бы наподобие CorelDraw`а (прилогаю пример) : со сглаживанием и тенями.
Как реализовать?

[Williams]

Сабж.

В принципе, окна делаются так:
MyBase.Region = New Region(System.Drawing.Drawing2D.GraphicsPath)

Но это не красиво, угловато, да и регион хотя бы с закруленными углами сделать сложно. Поэтому хотелось бы наподобие CorelDraw`а (прилогаю пример) : со сглаживанием и тенями.
Как реализовать?

Зачем так изващаться, ведь существует же штатный способ. Советую обратить внимание на свойство формы TransparencyKey - при установке свойства заданный произвольный цвет будет обращен в ничто

[MIT]

А с градиентами способ работает?

[Williams]

Поставь TransparencyKey в красный (255, 0, 0) и проверишь... Если у тебя градиент в оттенках синего, то какая разница? Правильно, никакой. Прозрачным станет только красный...

[MIT]

С градиентами НЕ работает. А хочется шоб работало, а то уж больно мне та тень у Corel`а понравилась...

[MIT]

Нашел способ создавать прозрачные градиенты

Код: Выделить всё

       
Me.TransparencyKey = Color.Red
        Dim myColors() As Color = New Color() {Color.FromArgb(0, 255, 0, 0), Color.FromArgb(152, 255, 0, 0), Color.FromArgb(255, 255, 0, 0)}
        Dim myPositions() As Single = {0.0F, 0.5F, 1.0F}
        Dim myBlend As ColorBlend = New ColorBlend(5)
        myBlend.Colors = myColors
        myBlend.Positions = myPositions
        Dim br As LinearGradientBrush = New LinearGradientBrush(New Rectangle(100, 100, 300, 300), Color.FromArgb(0, 255, 0, 0), Color.FromArgb(255, 0, 0, 0), 0.0!)
        br.InterpolationColors = myBlend
        e.Graphics.FillRectangle(br, 100, 100, 300, 300)


Но с формами тоже не работает. Может кто знает как правильно Blend к форме прикрутить?