Private Sub Form_Load()
Form1.AutoRedraw = True
For Y = 0 To ScaleWidth
Line (1, Y)-(ScaleWidth, Y), _
RGB(220, 200, 255 – (Y * 255) \ ScaleWidth)
Next Y
End Sub
Catatan: Angka 220 dan 200 pada koding dapat anda rubah-rubah untuk mendapatkan hasil gradiasi warna yg lain. silahkan download contoh projectnya disini.
0 komentar