vb用MSCOMM与功率计通讯例子 PrivateDeclareFunctionSetSysColorsLib"user32"(ByValnChangesAsLong,lpSysColorAsLong,lpColorvaluesAsLong)AsLongPrivateSubCheck1_Click()IfCheck1Thencsh=1