vb绘制彩色条的dll,vb直接使用

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

Private Sub Command2_Click()
Dim VV As COLORBARINFO
Picture1.Cls
 With VV
     .IsHorizontal = True
     .Colors = Array(vbRed, vbYellow)
     .Height = 200
     .Width = 200
 End With
 DrawColorBar Picture1, VV
End Sub

实例：

https://www.0xaa55.com/forum.php?mod=attachment&aid=NzU0N3wwZDZhZTM4M3wxNzgyMDg0MzIzfDkzNzd8Mjc4MTg%3D