VB MSComm怎么接收通话状态

VB MSComm如何接收通话状态
RT 拨打手机终端 获取当前的通话状态 响铃 接通 挂断。

[解决办法]
好久以前貌似还有人整了一个例子，现在用这个的少了??