参考
Dim cd As new system.windows.forms.colorDialogIf cd.ShowDialog = 1 Then msgbox(cd.Color.toargb)End If