Wincc6下通过

Sub OnLButtonDown(Byval Item, Byval Flags, Byval x, Byval y)
Dim objcommondialog,objtextbox2,objtextcolor2
Set objcommondialog= ScreenItems("common3")
objcommondialog.ShowColor
Set objtextbox2=ScreenItems("textbox2")
'Set objtextcolor2=objtextbox2.ForeColor
'Set objtextcolor2 =objcommondialog.Color
objtextbox2.ForeColor=objcommondialog.Color
End Sub