WINSOCK的一个E-MAIL 程序
下面的2段代码  请高手帮我看看有什么地方出错了

'接收
    Private Sub cmd_action_Click()
        Dim socket As Winsock
        Dim timeout As Timer
        Dim messages As Integer
        Set socket = wsk_socket
        Set timeout = tim_timeout
   
        If Not mailbusy Then
            If tab_mailer.Tab = 1 Then
                dco_popserver.Addentry dco_popserver.Getcurrententry
                dco_popusername.Addentry dco_popusername.Getcurrententry
                Me.Caption = "E-mail - Recieving Mail"
                checkmail socket, dco_popserver.Getcurrententry, 110, dco_popusername.Getcurrententry, txt_poppassword, timeout, False, App.Path
                fil_msgfiles.Refresh
                Unload frm_progress
                frm_main.Caption = "E-mail"
            End If
        Else
            MsgBox "请稍后...", vbOKOnly, "邮件服务器忙"
        End If
    End Sub

Private Sub Wsk_socket_DataArrival(ByVal bytesTotal As Long)
    Dim str As String
    wsk_socket.GetData str
    Response.SelStart = Len(Response.Text)
    Response.Text = Response.Text + str
    If (Left(str, 3)) = CodeNow Then
       Flag = True
    End If
End Sub
（这段代码取消了，接收就没问题。不取消发送就没问题，接收出问题了）

[[it] 本帖最后由 thh166 于 2008-12-16 12:27 编辑 [/it]]

请各位高手帮帮忙
谢谢了