این یک کد خیلی جالبه که می تونین یک طیف رنگ  RGB باهاش درست کنین.فقط لازمه یک تایمر با interval 10 روی فرم قرار بدین و این کد رو درونش بنویسین.


Private i As Double



Private Sub Timer1_Timer()
   Dim intLoop As Integer
      Me.DrawStyle = vbInsideSolid
   Me.DrawMode = vbCopyPen
   Me.ScaleMode = vbPixels
   Me.DrawWidth = 2
   Me.ScaleHeight = 256
   For intLoop = 0 To 255
   Me.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(0, 0 + i, 255 - intLoop), B
      Next intLoop
      i = i + 1
End Sub


 ScreenShot  برنامه: