我这里在csdn找到个收发的示例代码但是我试了只能用在一维数组  
求收发三维数组的简单方法，

发送部分
Private Sub cmdSendData_Click()
  'SendArr为已附值的二进制字节数组
    sckServer.SendData SendArr
End Sub
接收部分
Private Sub sckClient_DataArrival(ByVal bytesTotal As Long)
  Dim ReceiveArr() As Byte
  redim ReceiveArr(bytesTotal-1)
  sckClient.GetData ReceiveArr,vbByte + vbArray
End Sub

写代码将三维数组转成一维数组发，收到后将一维数组转成三维数组。 通讯数据流不存在多维的概念，只有数据格式的概念。实际上，在计算内存中，多维数组的数据也是线性存放的。

我不理解你问题的实质是什么？你传送中缺失什么信息？

保存的三维数组直接内存拷贝到一维字节数组里面，直接发送一维数组。必要的话先发送各个维数的宽度。

在接收方收到各个维数的宽度后，构造新的三维数组，然后接收到的一维数组内存拷贝到三维数组。