netværks chat

hej eksperter. jeg har været igang med et tut fra udviklerne(http://www.udvikleren.dk/article.php?aid=141&techid=4) kan godt få den til at virke og det hele.

når man skriver til hianden skriver den det på den andens computer men ikke på ens egen. hvis i forstår hvad jeg mener. det skal være ligesom messenger.

fx alså hvis jeg selv skriver: test til den handen og han så skriver hej. skal det se sådan her ud på begge skærme

test
hej
og ikke bare test ved den ene og hej ved den anden. noget i kan hjælpe med?

mit script ser sådan her ud:

Private Sub Form_Load()
    w.Protocol = sckUDPProtocol
    w.RemotePort = 1000
    w.LocalPort = 1000
    w.Bind
 
   
    ' Finder modtagerens ip adresse
    SendTil = InputBox("Din ip er: " & w.LocalIP & " Skriv den som du vil sende til's ip adresse:", "Ip.")
       
    If SendTil = "" Then: MsgBox "Programmet kan ikke køre uden en remote ip adresse!" & _
vbCrLf & vbCrLf & "Men vent evt. op at den anden skriver til dig, så vil programmet virke!", vbCritical
       
    w.RemoteHost = SendTil
   
    ' Ip adressen
    Text2.Text = w.LocalIP
   
    ' Restart alle kontroller
    Text1.Text = ""
   
    Text3.Text = ""
   
    Command1.Caption = "Send"
End Sub

Private Sub W_DataArrival(ByVal bytesTotal As Long)
SendTil = w.RemoteHost

Dim Tekst As String
w.GetData Tekst

Text1.Text = Tekst
End Sub

Private Sub Command1_Click()
On Error GoTo fejl2

' Hvis der ikke er skrevet noget
If Text3.Text = "" Then: GoTo fejl

' Hvis alt er normalt
w.SendData Text3.Text
Text3.Text = ""
' ikke skrevet noget
Exit Sub:
fejl:

MsgBox "Der er fejl! Du skal skrive noget.", vbCritical

' ingen at sende til
Exit Sub
fejl2:

MsgBox "Der kan ikke sendes data! Der er muligvis ikke angivet en at sende til!", vbCritical

SendTil = InputBox("Skriv evt. den andens ip:")


End Sub