在vb上画彩色渐近过度的彩色块

imperialeast

最近写了一个vb专用的彩色条，dll，
Private Sub Command1_Click()
Dim VV As COLORBARINFO
Me.Cls
With VV
     .IsHorizontal = True
     .Colors = Array(vbRed, vbYellow, vbBlue, &H80FF&, vbGreen, &HFF00FF, &HFFFF00)
     .Height = 200
     .Width = 200
End With
DrawColorBar Me, VV
End Sub

比较小实现绘图如下效果