关于vb的winsock通信

　　　我想问一下在通过winsock控件从服务器端向客户端发送图片时用什么方法发送呢？
Private Sub cmdSend_Click()
'向服务器发送文件
Dim myFile() As Byte
Dim lngFile As Long '文件长度
Dim FileName As String '文件名称
Static i As Single
If sockClient.State = sckConnected 　　Then

FileName = VB.App.Path & "\1.jpg" '取得文件名及路径
lngFile = FileLen(FileName) '取得文件长度
ReDim myFile(lngFile - 1) As Byte '初始化数组

Open FileName For Binary As #1 '打开文件
Get #1, , myFile '将文件写入数组
Close #1 '关闭文件

sockClient.SendData myFile '发送

End Sub
这是我的毕业设计，基于web 的 gis，服务器端不能向客户端发送图片
　我用的这个方法只能发很小的图片，太大的话出错提示文件太大
不知道用什么方法才能实现发送接收？
请指点

Private Sub wskb_DataArrival(ByVal bytesTotal As Long)
Static i As Long
Dim myFile() As Byte
Dim myLong As Double
Dim myPath As String
myPath = VB.App.Path & "\map.jpg"
cmdC.Caption = "正在接收数据... " & bytesTotal
ReDim myFile(0 To bytesTotal - 1) '此处也可以是(0 To bytesTotal-1)

wskb.GetData myFile
i = i + 1

Open myPath For Binary As #1 '新建文件
Put #1, lenth + 1, myFile '将收到的数据写入新文件中
Close #1 '关闭'记录文件长度
lenth = lenth + UBound(myFile) - LBound(myFile) + 1
Picture2.Picture = LoadPicture(VB.App.Path & "\map.jpg")
end sub
这个是接受端的代码，就是不能接受一般大的图片，只能接受很小的图片．／

WINSOCK一次只能发送小于8K Bit的数据 如果数据量大的话,尝试多次发送吧``

thank you

请问这个多次发送怎么实现呀？
定义一个缓冲区从文件中取数据
可是当第二次取文件时，从哪儿开始呢？
想了一晚上都没想出来，
有代码的可以看以下吗？

谢谢

LEN(string)
if >8K

定义从一个缓冲区从文件中取数据
可是当第二次把缓冲区中的文件写入目标文件时，
从哪个位置？开始呢？
会不会覆盖第一次写入文件中的数据？
可以给出具体一点的算法吗？


thanks

用重定义数组的方法`

是不是每发送一次都要调用一　次wsk_senddata事件？
还是在这个事件里设置循环重复发送？
是不是在发送事件的外部求文件长度，然后设置循环调用wsk_senddata事件？