我想用按钮调出windows 调色板，对按钮写了如下程序，但就是不执行，是因为调用第三方控件不稳定的原因吗？
Sub X6309X94AE5X0000X9875_X6309X94AE5X00009_OnClick(ByVal Item)
Dim objcommondialog,objtextbox2,objtextcolor2

Set objcommondialog= ScreenItems("common3")
Set objcommondialog.Flags =&H1&
objcommondialog.ShowColor
Set objtextbox2=ScreenItems("textbox2")
Set objtextcolor2=objtextbox2.ForeColor
Set objtextcolor2=objcommondialog.Color
End Sub