1. Bukalah Visual Basic 6.0 dan mulailah dengan form baru. Double klik didalam area Form, kemudian ubahlah event Load menjadi Paint dan ketiklah source sebagai berikut :
Private Sub Form_Paint ( )
Dim i As Integer
Draw Mode = 13
Draw Width = 6
ScaleMode = 3
ScaleHeight = 255
For i = 0 To 254
Line (0, I) -(Width, I + 1), RGB (255 - I, 0, 0), B
Next I
End Sub
