Gradient Form In VB

Mungkin anda pernah lihat ada form yang warna backgroundnya berwarna dengan tipe gradient. Jika program tersebut dibuat melalui VB, maka hanya ada 2 (dua) cara untuk membuat hal tersebut, yaitu :

1. Buat gambar gradient melalui software Adobe Photoshop, Macromedia Fireworks, dll. kemudian taruh gambar tersebut sebagai background picture dari form.
2. Ketikkan kode ini di form :

Private Sub Form_Paint()
ON ERROR RESUME NEXT
ScaleMode = vbPixels
DrawStyle = 5
DrawWidth = 1
For I = 0 To ScaleHeight Step ScaleHeight \ 64

Line (-1, I - 1)-(ScaleWidth, I + ScaleHeight \ 64),
RGB(0, 255 - I * 255 \ ScaleHeight, 200), BF

DoEvents
Next I
End Sub

Sudah dicoba code diatas ? Nah sekarang anda tahu kan gradient itu sebenarnya terbuat dari apa. Tipuan mata saja kok, sebenarnya gradient itu hanya terdiri dari garis - garis yang dibuat dengan warna yang berlainan untuk.

Anda bisa lihat penggunaan sintax "Line" di MSDN, untuk pemilihan warna terletak pada code berikut :

RGB(0, 255 - I * 255 \ ScaleHeight, 200)

Perintah diatas menentukan pilihan warna pada garis yang akan digambar. Karena perintah Line terdapat di dalam looping For, maka warnanya juga berubah seiring dengan lokasi penggambaran garis.