お世話になっております。WindowsXP、VB2005で開発をしています。
VB6.0でMSCommを使用していたプログラムを、VB2005のSerialPortに変更して、バージョンアップを行うことになりました。VB6.0が

mcomm.PortOpen = True

で、CTSHoldingがTrueになるのに対し、VB2005はポートを開くところでCtsHoldingのパラメータがFalseのままになってしまいます。
同様の動きをするよう記述しているつもりなのですが間違えているのでしょうか？ご存知の方ご教授ください。

******** VB6.0 *******************

    If mcomm.PortOpen = False Then
        ' ポートを開きます。
        mcomm.PortOpen = True
    End If
        
    '接続が成功するかどうかを調べます
    If mcomm.CTSHolding <> True Then
            'MsgBox "Communications port cannot be opend.(通信ポートをオープン出来ません！)"
            MsgBox LoadResString(1)
        mcomm.PortOpen = False
        Exit Function
    End If

********* VB2005 *******************

      If SComm.IsOpen = False Then
            ' ポートを開きます。
            SComm.Open()
        End If

        '接続が成功するかどうかを調べます
        If SComm.CtsHolding <> True Then
            'MsgBox "Communications port cannot be opend.(通信ポートをオープン出来ません！)"
            MsgBox(My.Resources.commsg001)
            SComm.Close()
            Exit Function
        End If