如果不用组件的话，代码如下：

setie=createobject("internetexplorer.application")

ie.navigate"about:blank"

dountilie.readystate=4:wscript.sleep25:loop

setdoc=ie.document

setbody=doc.body

setwin=doc.parentwindow

body.innerhtml="<OBJECTid=dlgCLASSID='clsid:3050f819-98b5-11cf-bb82-00aa00bdce0b'></OBJECT>"

body.innertext=doc.getElementById("dlg").choosecolordlg

win.clipboarddata.setdata"text",body.innertext

ie.quit

如果用组件的话，代码如下:

flag=1+2

initialColor=&hff32ea

color=OpenColor(initialColor,flag)

MsgBox"Selectedcolor:"&hex(color)

functionOpenColor(initColor,flags)

setcomdlg=CreateObject("MSComDlg.CommonDialog")

comdlg.Color=initColor

comdlg.Flags=flags

comdlg.ShowColor

OpenColor=comdlg.Color

endfunction

组件相关文件下载http://xiazai.jb51.net/jbtools/vb6controls.rar