怎么调出调色板

如何调出调色板
如何点击一控件调出调色板
请高手指点.

[解决办法]
Private Sub Command1_Click()
CommonDialog1.ShowColor
Text1.ForeColor = CommonDialog1.Color
End Sub