[Help] Creating an IRC Client

[Furbster4]

Hey all,

Long time visitor, (think) second time poster

attempting to create an IRC Client in VB 2008 and am stuck...

i have....

Public Class frmIRC

    Private Sub frmIRC_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Sock.Connect()
    End Sub

    Function addText(ByVal message As String)
        'txtLogs.Text(txtLogs.Text & vbCrLf & message)
        txtLogs.Text = txtLogs.Text & message & vbCrLf
        Return vbNull
    End Function

    Private Sub Sock_ConnectEvent(ByVal sender As Object, ByVal e As System.EventArgs) Handles Sock.ConnectEvent
        Sock.SendData("NICK Testy\nUSER A A A A A\nJOIN #test\n")
    End Sub

    Private Sub Sock_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Sock.DataArrival
        'MsgBox("New Data")
        Sock.SendData("NICK Testy\r\n")
        Sock.SendData("USER A A A A A A\r\n")
        Sock.SendData("JOIN #test\r\n")
    End Sub

    Private Sub Sock_SendComplete(ByVal sender As Object, ByVal e As System.EventArgs) Handles Sock.SendComplete
        addText("> Sent Data")
    End Sub
End Class

it echo's > Sent Data three time upon opening, but i suppose what i'm attempting to do, is attempt to make it so it does addText(data) instead of the three Sock.SendData... if that makes sense... i don't know what the formula is to handle the data.

Please Help