Reading a text file from a server?

Create a new form...

Add a text box caled "Text1"
Add a command button called "Command1"
Add a winsock control called "Winsock1"

Set Text1 to MultiLine = True and ScrollBars = Both

Private Sub Command1_Clik()
'connect to server
Winsock1.connect "members.xoom.com", 80
End Sub

Private Sub Winsock1_Connect()
'send http request (ask for the file)
Winsock1.senddata "GET /rino_2/readme.txt HTTP/1.0" & vbclrf & vbcrlf
End Sub

Private Sub Winsock1_DataArrival(bytes as long)
'weve recieved a packet, keep track of it and add it to the text box
Winsock1.getdata TempStr, vbString
text1.text = text1.text & TempStr
End Sub

Private Sub Winsock1_Close()
'its complete, the httpd server automatically closes the connection
'when the file get is complete :)
msgbox "Download complete."
End Sub