Chat

[comcrack]

Hy,

I'm trying to make the chat that is in the msdn lybrary :
ms-help://MS.VSCC.2003/MS.MSDNQTR.2003FEB.1033/dnadvnet/html/vbnet08282001.htm

I don't know where to put these two line and I dont understand what is wrote:

Dim params() As Object = {mobjText.ToString}
Me.Invoke(New DisplayInvoker(AddressOf Me.DisplayText), params)

Thank you

ComCrack

 

[comcrack]

It's ok for this I understand but there is an other error :

MarkAsDisconnected()

in

Private Sub DoRead(ByVal ar As IAsyncResult)
Dim intCount As Integer

Try
intCount = mobjClient.GetStream.EndRead(ar)
If intCount < 1 Then
MarkAsDisconnected()
Exit Sub
End If

BuildString(marData, 0, intCount)

mobjClient.GetStream.BeginRead(marData, 0, 1024, _
AddressOf DoRead, Nothing)
Catch e As Exception
MarkAsDisconnected()
End Try
End Sub

Vb mark these line as an error!