Sub 显示颜色提取器()
    On Error Resume Next
    With CreateObject("MSComDlg.CommonDialog")
        .CancelError = True
        .Color = RGB(255, 0, 0)
        .ShowColor
        Msgbox .Color
    End With
End Sub