Private Sub Form_Load()
Me.Top = Screen.Height / 2 - Height / 2
 Me.Left = Screen.Width / 2 - Width / 2
  Me.AutoRedraw = True
    Me.DrawStyle = 6
   Me.DrawMode = 13
   Me.DrawWidth = 2
   Me.ScaleMode = 3
   Me.ScaleHeight = (256 * 2)
    For i = 0 To 255
' Red      Me.Line (0, Y)-(Me.Width, Y + 2), RGB(i, 0, 0), BF
'green    Me.Line (0, Y)-(Me.Width, Y + 2), RGB(0, i, 0), BF
'blue       Me.Line (0, Y)-(Me.Width, Y + 2), RGB(0, 0, i), BF
      Y = Y + 2
   Next i
End Sub