Dim NodeNumber As UInt16
Dim BNumber As Byte
Dim GatewayControlIpAddrOfNode As UInt32
Dim GatewayControlIpPortOfNode As UInt16
Dim NodeDescriptionString As String = ""
Dim newRes as Int32 = GetConnectionStatus(NodeNumber, BNumber,  GatewayControlIpAddrOfNode, GatewayControlIpPortOfNode, NodeDescriptionString)