how to do this

---

Private Sub Winsock2_Connect()
On Error Resume Next
Dim packet As String, login As String, login2 As String


Dim packet2 As String

login = Text2.Text & vbCrLf
packet = "POST /l/uk/yahoo/abuse/general.html?pir=T4X96JRibUmTtkzyPL9mXH_4rQJ.k4Ry_VvYZ6BZkuxARmhZslPwvI7JFlSjE.dGMw-- HTTP/1.1" & vbCrLf
packet = packet & "Host: help.yahoo.com" & vbCrLf
packet = packet & "Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & vbCrLf
packet = packet & "Accept-Language: en-us,en;q=0.5" & vbCrLf
packet = packet & "Connection: keep-alive" & vbCrLf
packet = packet & "Referer: http://help.yahoo.com/l/uk/yahoo/abuse/general.html?pir=T4X96JRibUmTtkzyPL9mXH_4rQJ.k4Ry_VvYZ6BZkuxARmhZslPwvI7JFlSjE.dGMw--" & vbCrLf
packet = packet & "Content-Type: multipart/form-data; boundary=---------------------------41184676334" & vbCrLf
packet = packet & "Content-Length: " & Len(login) & vbCrLf & vbCrLf & login




Winsock2.SendData packet
End Sub

---