رسم مربعات وخطوط على الفورم

كي تبقى الأشكال التي تقوم برسمها ضاهرة على الفورم حتى بعد اختفاءه وراء فورم آخر, قم بالتقاط الحدث Paint للفورم و على الدالة المشتركة استعمل دوال الكائن e.Graphics للرسم, مثال :

	Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
 	e.Graphics.DrawRectangle(Pens.Black, 100, 100, 30, 30)
 	e.Graphics.DrawEllipse(Pens.CornflowerBlue, 50, 50, 50, 50)
	End Sub

أما إذا كنت تريد الرسم من أي حدث أو من أي مكان من الكود فالمثال التالي معلق عليه بالتفصيل :

 	' الوصول إلى كائن الرسم للفورم الحالي
 	Dim g As Graphics = Me.CreateGraphics()
 	' الرسم باستعمال كائن الرسم
 	g.DrawRectangle(Pens.Black, 100, 100, 30, 30)
 	g.DrawEllipse(Pens.CornflowerBlue, 50, 50, 50, 50)
 	' تحرير موارد النظام
 	g.Dispose()