I got code from PlanetSoruceCode.com and it is not working corretly it is to send e-mail through Winsock. The problem is, it connects and then when Status.Caption says "Sending Data 1/3" it dosent get past that part. It just stays there I have Winsock1, the Local Port = 6000
and the Remote Port = 25
*This is NOT my code*

Code:
Private Sub Command1_Click()
Dim sRes As String

    Winsock1.RemotePort = 25
    Winsock1.RemoteHost = frmOptions.txtSMPT_Host
    Winsock1.Connect

Status.Caption = ("Connecting to " & frmOptions.txtSMPT_Host & "Hold...")
    Do Until Winsock1.State = 7 '7=connected


        DoEvents
        Loop
        sRes = "0"
        Winsock1.SendData "MAIL FROM: " & txtMail_From

Status.Caption = "Sending Data 1/3"
        Do Until sRes = "250"


            DoEvents
            Loop
            sRes = "0"
            Winsock1.SendData "RCPT TO: " & txtrcpt_to

Status.Caption = "Sending Data 2/3"
            Do Until sRes = "250"


                DoEvents
                Loop
                sRes = "0"
                Winsock1.SendData "DATA" & vbCrLf

Status.Caption = "Sending Data 3/3"
                Do Until sRes = "354"


                    DoEvents
                    Loop
                    Winsock1.SendData "FROM: " & txtFrom
                    Winsock1.SendData "SUBJECT: " & txtSubject
                    Winsock1.SendData Text1.Text & vbCrLf & "." & vbCrLf
Status.Caption = "Sending Data -> Mass"

                    Do Until sRes = "250"


                        DoEvents
                        Loop
                        Winsock1.Close
Status.Caption = ("Mail sent to" & txtMail_To.Text & "@ " & txtrcpt_to.Text & "Successful")
                    End Sub



Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim DATA As String
    Dim Length As Long
    Winsock1.GetData DATA
    Length = Len(DATA)
    sRes = Left$(DATA, 3)
End Sub
Could someone look that over and please tell me what the heck is going wrong.

Thanks!!