[VB] Hilfe beim Login

[getsha]

Moing uh com

Also ich hänge jetzt schonn seit 1 std vor mein loginbot. Der hat kein chatverlauf & keine Userlist, und er macht auch kein (Original)channel auf..
er soll sich einfach nur einloggen. Und wenn das dann geht wird er dann vllt ein kissbot mal gucken, so jetzt mal der source:

Imports KNLib

Public Class Form1
    Dim applet As New Applet
    Dim WithEvents client As KSClient
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        applet = New Applet
        client = New KSClient(applet)
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
        client.Connect(KNLib.ChatSystem.DE)
        client.Login(TextBox1.Text, TextBox2.Text, TextBox3.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        client.Disconnect()
    End Sub
End Class

Vllt ist da irgendwo ein Fehler aber ich weiß nicht, Btte um Hilfe Danke schonnmal

MfG