Sub OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)
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

我在Wincc6下试了怎么不行呢？调色板出不来，请问是什么问题呢？