He he! I understand perfectly! : o )
Jeg har haft det til at virke, men nu har jeg bygget programmet lidt om og NU virker det slet ikke!!!!

Her er kilde koden:

(Programmet er både client og server)

Code:
Private Sub cmdSend_Click()
sckConnect.SendData Client.txtNick.Text & " >" & SendMsg.Text
Message.AddItem Client.txtNick.Text & " >" & SendMsg.Text
End Sub

Private Sub Form_Load()
frmChat.Caption = "CyberCarsten's LAN Chat - Client - [Server:" & Client.txtServerIP.Text & " - Nick: " & Client.txtNick.Text & "]"
sckConnect.RemotePort = Client.txtServerIP.Text
sckConnect.LocalPort = Client.txtLocalPort
sckConnect.Connect Client.txtServerIP.Text, Client.txtPort.Text
End Sub

Private Sub sckConnect_Connect()
Message.AddItem "Connected to" & " " & Client.txtServerIP.Text
End Sub

Private Sub sckConnect_ConnectionRequest(ByVal requestID As Long)
' Check if the control's State is closed. If not,
' close the connection before accepting the new
' connection.
If sckConnect.State <> sckClosed Then _
sckConnect.Close
' Accept the request with the requestID
' parameter.
sckConnect.Accept requestID


End Sub

Private Sub sckConnect_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
sckConnect.GetData strData, vbString
Message.AddItem strData

End Sub
To all others....sorry if you don't understand what I'm writting, but I found out that HaxSoft is Danish!! So why not write in danish? : o )

[Edited by CyberCarsten on 08-25-2000 at 03:09 PM]