公司的系统中厂商自己写的一个Melsec读写模块与PLC通讯，其中读B类型的方法ReceiveDevB可以正常读出，置位操作总是返回-2
Public Function BitSetDevB(intAddress As Integer, Optional intStationNo As Integer = MDEF_STNO_SELFSTATION) As Integer
Dim intDevType As Integer
Dim intResult As Integer
On Error Resume Next
Err.Clear
intDevType = MDEF_DEVTYPE_B
intResult = mdDevSet(hPort, intStationNo, intDevType, intAddress)
If intResult > 0 Then intResult = intResult * -1
BitSetDevB = intResult
End Function
如给B107F进行置位，VB中intAddress给参数&H107F&，置位操作返回-2
给B100进行置位，VB中intAddress给参数&H100&，置位操作返回0，但实际B100位值却未改变，是哪里的问题？VB中PLC地址不是&H107F&这样输入么，怎么感觉地址跟实际监控的地址不一样？
求解答，求VB6与PLC通讯详细方法
