เพิ่มโค้ดโปรแกรมต่อไปนี้ลงใน Form_Load
SubForm_Load()
Form1.AutoRedraw=จริง
'เปิดใช้งานการวาดวัตถุแบบฟอร์มใหม่โดยอัตโนมัติ
Form1.DrawStyle=6
'รูปแบบของเส้นตรงคือเส้นทึบด้านใน (6-vbInsideSolid)
Form1.DrawMode=13
'copyPen - สีที่ระบุโดยคุณสมบัติ ForeColor (13-vbCopyPen)
Form1.DrawWidth=2
'ความกว้างของบรรทัดเอาต์พุตคือ 2 พิกเซล (Pixel)
'สร้างมาตราส่วนพิกัดที่กำหนดเองสำหรับการลงจุดหรือการพิมพ์
'พิกเซลกราฟิกเป็นหน่วยที่เล็กที่สุดของความละเอียดของจอภาพหรือเครื่องพิมพ์
Form1.ScaleMode=3
'ตั้งค่าหน่วยการวัดของพิกัดวัตถุเป็นพิกเซล (3-VbPixels)
Form1.สเกลความสูง=(256*2)
'ตั้งค่าหน่วยการวัดแนวตั้งเป็น 512
ฟอริ=0ถึง255
Form1.Line(0,Y)-(Form1.Width,Y 2),RGB(0,0,i),BF
ย=ป 2
เน็กซ์ตี
'RGB (แดง, เขียว, น้ำเงิน)
'B: วาดรูปสี่เหลี่ยมโดยใช้พิกัดของมุมตรงข้ามของสี่เหลี่ยมที่ระบุ
'F: ระบุว่าสี่เหลี่ยมจัตุรัสนี้เต็มไปด้วยสีที่ใช้ในการวาดสี่เหลี่ยมจัตุรัส (F สามารถใช้ได้เฉพาะเมื่อมี B เท่านั้น)
สิ้นสุดย่อย ->