PrivateDeclareFunctionSetSysColorsLib"user32"(ByValnChangesAsLong,lpSysColorAsLong,lpColorvaluesAsLong)AsLongPrivateSubCheck1_Click()IfCheck1Thencsh=100Elsecsh=200EndIfEndSubPrivateSubCommand2_Click()OnErrorResumeNextIfMSComm1.PortOpe