winsock发送和接收数据的问题

就是我用winsock发送图片时,报错说:"数据文报太大,不能装入缓冲区
并被截断" 我是用字节数组传的,源代码如下:(UDP协议)
Private Sub Form_Load()
With udpPeerA
.RemoteHost = "202.38.204.36" '要连接到的计算机名"
.RemotePort = 80 '要连接到的端口号
.LocalPort = 80 '该Winsock控制将要使用的本地端口号，便于其它端与该Winsock通讯
.Bind 80 '将该Winsock控制绑定到该本地端口
End With
End Sub
发送数据:
Private Sub Command1_Click()
Dim filelength As Long
filelength = FileLen("F:\huangjinfeng\kx50模板.xls")
ReDim bytt(filelength) As Byte
Dim l As Long
l = FreeFile
Open "F:\huangjinfeng\kx50模板.xls" For Binary Access Read As #l
Get #l, , bytt
Close #l
udpPeerA.SendData bytt
ReDim bytt(0)
End Sub
接收数据:
Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
Dim lenx As Long
lenx = FileLen("F:\huangjinfeng\kx50模板.xls")
ReDim bytx(lenx) As Byte
If bytesTotal >= lenx Then
udpPeerA.PeekData bytx, vbArray + vbByte, lenx
Dim l As Long
l = FreeFile
Open "d:\kx50模板.xls" For Binary Access Write As #l
Put #1, , bytx
Close #l
'MsgBox "收到文件 C:\Excl.xls"
ReDim bytx(0)
End If
End Sub
请大家看看,或给个源代码(可以发送图片或exe,rpt等文件类型的).谢谢!