مين يقدر يكبر هالقلب؟؟؟؟

الموضوع بسيط بس أضرب كل الأرقام اللي عندك في 2

صح بيطلع شكله غبي شوي في البداية، لكن ممكن تضيف عليه بعض التعديلات

لقد حاولت فيه ونجحت

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		'heart
		Dim path As New Drawing2D.GraphicsPath
		path.AddArc(70 * 2, 10 * 2, 150 * 2, 150 * 2, 135, 195)
		path.AddArc(200 * 2, 10 * 2, 150 * 2, 150 * 2, 211, 195)
		path.AddLine(92 * 2, 139 * 2, 210 * 2, 270 * 2)
		path.AddLine(327 * 2, 139 * 2, 210 * 2, 270 * 2)
		path.AddLine(327 * 2, 139 * 2, 92 * 2, 139 * 2)
		Me.Region = New Region(path)
		Me.BackColor = Color.Yellow
		Me.StartPosition = FormStartPosition.CenterScreen

	End Sub

	Private Sub btnheart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnheart.Click
		'heart shape
		Dim path As New Drawing2D.GraphicsPath

		path.AddArc(70 * 2, 10 * 2, 150 * 2, 150 * 2, 135, 195)
		path.AddArc(200 * 2, 10 * 2, 150 * 2, 150 * 2, 211, 195)
		path.AddLine(92 * 2, 139 * 2, 210 * 2, 270 * 2)
		path.AddLine(327 * 2, 139 * 2, 210 * 2, 270 * 2)
		path.AddLine(327 * 2, 139 * 2, 92 * 2, 139 * 2)

		Me.Region = New Region(path)
		Me.BackColor = Color.Red
		btnCircle.Enabled = True
		btnEllipse.Enabled = True
		btnheart.Enabled = False
	End Sub

B) B) B)

يعطيكم ألف عافية

ولأخي moudar

يسلمو زبطت معي وكبر القلب

شكرا كتير