كود لجعل الفورم على شكل قلب او دائرة مفرغة

كود :

[color=#0000ff]Private[SIZE=2]Sub[/SIZE][/color][SIZE=2] Form1_Load([/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] sender [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] System.Object, [/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] e [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] System.EventArgs) [/SIZE][SIZE=2][color=#0000ff]Handles[/color][/SIZE][SIZE=2][color=#0000ff]MyBase[/color][/SIZE][SIZE=2].Load

[/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] path [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] Drawing2D.GraphicsPath [/SIZE][SIZE=2][COLOR=#008000]'هذا هو المتغير

[/COLOR][/SIZE][SIZE=2][COLOR=#008000]'القلب كبداية

[/COLOR][/SIZE][SIZE=2]path.AddArc(70, 10, 150, 150, 135, 195) [/SIZE][SIZE=2][COLOR=#008000]'نرسم قطاع كالأتى الأحداثى اكس ثم واى ثم العرض ثم الطول ثم زاوية البداية ثم النهاية 

[/COLOR][/SIZE][SIZE=2][COLOR=#008000]'القطاع السابق هو القطاع اليمين بالنسبة للفورم 



[/COLOR][/SIZE][SIZE=2]path.AddArc(200, 10, 150, 150, 210, 195) [/SIZE][SIZE=2][COLOR=#008000]'و ده القطاع الأيسر بنفس الأسلوب

[/COLOR][/SIZE][SIZE=2][COLOR=#008000]'الثلاث خطوط القادمة تساوى المثلث السفلى

[/COLOR][/SIZE][SIZE=2]path.AddLine(92, 139, 210, 270) [/SIZE][SIZE=2][COLOR=#008000]'احداثى البداية ثم احداثى نهاية الخط

[/COLOR][/SIZE][SIZE=2]path.AddLine(327, 139, 210, 270)

path.AddLine(327, 139, 92, 139)

[/SIZE][SIZE=2][color=#0000ff]Me[/color][/SIZE][SIZE=2].Region = [/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] Region(path) [/SIZE][SIZE=2][COLOR=#008000]'تخصيص المتغير الخاص بالأمتداد الرسومى للمنطقة الظاهرة

[/COLOR][/SIZE][SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][color=#0000ff]Sub[/color][/SIZE]

كود :

[color=#0000ff]Private[SIZE=2]Sub[/SIZE][/color][SIZE=2] MenuItem2_Click([/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] sender [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] System.Object, [/SIZE][SIZE=2][color=#0000ff]ByVal[/color][/SIZE][SIZE=2] e [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2] System.EventArgs) [/SIZE][SIZE=2][color=#0000ff]Handles[/color][/SIZE][SIZE=2] MenuItem2.Click

[/SIZE][SIZE=2][color=#0000ff]Dim[/color][/SIZE][SIZE=2] path [/SIZE][SIZE=2][color=#0000ff]As[/color][/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] Drawing2D.GraphicsPath [/SIZE][SIZE=2][COLOR=#008000]'المتغير

[/COLOR][/SIZE][SIZE=2][COLOR=#008000]'لعمل الدائرة المفرغة

[/COLOR][/SIZE][SIZE=2]path.AddEllipse(85, 0, 250, 250) [/SIZE][SIZE=2][COLOR=#008000]'الأحداثى ثم طول و عرض المستطيل المحيط بالدائرة

[/COLOR][/SIZE][SIZE=2][COLOR=#008000]''path.AddEllipse(135, 50, 150, 150)

[/COLOR][/SIZE][SIZE=2]path.AddEllipse(160, 75, 100, 100) [/SIZE][SIZE=2][COLOR=#008000]'هنا تتقاطع الدائرة الأولى مع الثانية فيحدث التفريغ

[/COLOR][/SIZE][SIZE=2][color=#0000ff]Me[/color][/SIZE][SIZE=2].Region = [/SIZE][SIZE=2][color=#0000ff]New[/color][/SIZE][SIZE=2] Region(path) [/SIZE][SIZE=2][COLOR=#008000]'تخصيص المتغير الخاص بالأمتداد الرسومى للمنطقة الظاهرة

[/COLOR][/SIZE][SIZE=2][color=#0000ff]Me[/color][/SIZE][SIZE=2].BackColor = Color.Gray

[/SIZE][SIZE=2][color=#0000ff]End[/color][/SIZE][SIZE=2][COLOR=#0000ff]Sub

[/COLOR][/SIZE]