Tambahkan kode program berikut ke Form_Load
SubFormulir_Beban()
Form1.AutoRedraw=Benar
'Aktifkan menggambar ulang objek Formulir secara otomatis
Formulir1.DrawStyle=6
'Gaya garis lurus adalah garis padat bagian dalam (6-vbInsideSolid)
Formulir1.Mode Gambar=13
'copyPen - warna yang ditentukan oleh properti ForeColor. (13-vbCopyPen)
Formulir1.Lebar Gambar=2
'Lebar garis keluaran adalah 2 piksel (Piksel)
'Buat skala koordinat khusus untuk membuat plot atau mencetak
'Piksel grafis adalah unit terkecil dari resolusi monitor atau printer
Formulir1.Mode Skala=3
'Atur satuan pengukuran koordinat objek ke piksel (3-VbPixels)
Formulir1.ScaleHeight=(256*2)
'Tetapkan nilai satuan pengukuran vertikal ke 512
Fori=0Ke255
Bentuk1.Garis(0,Y)-(Bentuk1.Lebar,Y 2),RGB(0,0,i),BF
kamu=kamu 2
Selanjutnya
'RGB (merah, hijau, biru)
'B: Gambarlah sebuah persegi menggunakan koordinat sudut berlawanan dari persegi yang ditentukan
'F: Menentukan bahwa kotak ini diisi dengan warna yang digunakan untuk menggambar kotak (F hanya dapat digunakan jika ada B)
Sub Akhir->