أضف رمز البرنامج التالي إلى Form_Load
SubForm_Load()
Form1.AutoRedraw=صحيح
'تمكين إعادة الرسم التلقائي لكائن النموذج
Form1.DrawStyle=6
'نمط الخط المستقيم هو الخط الصلب الداخلي (6-vbInsideSolid)
Form1.DrawMode=13
'copyPen - اللون المحدد بواسطة خاصية ForeColor. (13-فبكوبيبن)
Form1.DrawWidth=2
'عرض خط الإخراج هو 2 بكسل (بكسل)
'قم بإنشاء مقياس إحداثي مخصص للتخطيط أو الطباعة
'بكسل الرسومات هو أصغر وحدة لدقة الشاشة أو الطابعة
Form1.ScaleMode=3
'اضبط وحدة قياس إحداثيات الكائن على البكسل (3-VbPixels)
Form1.ScaleHeight=(256*2)
'اضبط قيمة وحدة القياس الرأسية على 512
فوري = 0 إلى 255
Form1.Line(0,Y)-(Form1.Width,Y 2),RGB(0,0,i),BF
ص = ص 2
نيكستي
'RGB (الأحمر والأخضر والأزرق)
'ب: ارسم مربعًا باستخدام إحداثيات الزاوية المقابلة للمربع المحدد
'F: يحدد أن هذا المربع مملوء باللون المستخدم لرسم المربع (لا يمكن استخدام F إلا في حالة وجود B)
EndSub->