>>800
Private Sub Command1_Click()
　　Winsock1.Connect "www.2ch.net", 80
End Sub
Private Sub Winsock1_Connect()
　　Winsock1.SendData "GET / HTTP/1.0" & vbCrLf & vbCrLf
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
　　Dim A$
　　Winsock1.GetData A
　　Text1.Text = Text1.Text & A
End Sub

フォームにWinsockコントロールとText1とCommand1をぽとりぺたして、
Text1のMultiLine=Trueにして、このコードを貼れ。
細かい所は問題あるから自分で調整するよーに。でわ健闘を祈る！