Chatprogram! Hvordan? WinSock?

Jeg vil gerne lave et chatprogram.

Det skal se sådan ud:

Private Sub Command1_Click()
Dim TEST As String
TEST = InputBox("Skriv din meddelelse")
List1.AddItem TEST
End Sub

Når man så trykker på knappen kan man skrive en meddelelse, som så bliver lagt ud på List1.

Hvordan kan jeg lave det til et chatprogram?? Skal man bruge noget med WinSock??

PS: hvis 200 point er for lidt, kan vi godt finde ud af noget...