vb 判断rs是否打开