Добавьте следующий программный код в Form_Load
Подформа_Загрузка()
Form1.AutoRedraw=Истина
'Включить автоматическую перерисовку объекта формы
Form1.DrawStyle=6
'Стиль прямой линии - внутренняя сплошная линия (6-vbInsideSolid)
Форма1.DrawMode=13
'copyPen — цвет, указанный свойством ForeColor. (13-vbCopyPen)
Форма1.DrawWidth=2
'Толщина выходной линии составляет 2 пикселя (Pixel)
'Создание пользовательской шкалы координат для печати или печати
«Графический пиксель — это наименьшая единица разрешения монитора или принтера.
Форма1.ScaleMode=3
'Установим единицу измерения координат объекта в пикселях (3-VbPixels)
Form1.ScaleHeight=(256*2)
'Установим значение единицы вертикального измерения 512
Фори=0To255
Form1.Line(0,Y)-(Form1.Width,Y 2),RGB(0,0,i),BF
Д=Д 2
Nexti
'RGB(красный,зеленый,синий)
'B: Нарисуйте квадрат, используя координаты противоположного угла указанного квадрата.
'F: указывает, что этот квадрат заполнен цветом, используемым для рисования квадрата (F можно использовать только при наличии B)
EndSub->