我是VB初学者，用WINSOCK传文件，请各位帮着修改一下程序。（附源程序，并不大）


'*****************这是我写的局域网聊天软件的发送文件部分*******************
绝对没有BUG ！！！！！Public Sub SendFile()
    StopSend = 2    '2-没有中断信息
    Open sendFileName For Binary Access Read As #1
        Do
            a = LOF(1) - Seek(1)
            ReDim bytBuffer(IIf(a >= iniBufferSize, iniBufferSize, a)) '重新定义缓冲区大小
            Get 1, , bytBuffer                  '读取数据
            NextOne = False '复位
        '**************************************************
            Do  '等待对方回应 “继续”
                DoEvents
                Select Case StopSend
                    Case 0 '自己中断
                        GoTo f
                    Case 1 '接收方中断
                        GoTo f
                    Case 2 '继续传输
                End Select
            Loop Until NextOne = True '可以继续发送了
        '**************************************************
            frmConfrontation.sckData.SendData bytBuffer  '发送数据
            frmSendFile.Caption = "文件发送" & "  -  已发送" & Seek(1) \ 1024 & " K"
        '**************************************************
            Dim i As Integer
            For i = 1 To iniSleepTime '强制减速
                Sleep 1     '***
                DoEvents
            Next
        '**************************************************
            DoEvents    '***
        Loop Until Seek(1) >= LOF(1)
    frmConfrontation.sckMessage.SendData "##发送完成"
f:
    Close #1
    Erase bytBuffer '释放内存
    Unload frmSendFile
End Sub