Simpel Channelhopping

Imports KNLib
Public Class Form1
    Dim applet As New Applet
    Dim WithEvents client As KSClient

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        client.Connect(ChatSystem.DE)
        client.Login(TextBox1.Text, TextBox2.Text, TextBox3.Text)
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Dim Rndm As New Random
        Dim channel() As String = {"/go /kisssparty", "/go /bot", "/go /lol", "/go /seveneleven", "/go /masterdiice", "/go /abc"}
        TextBox4.Text = channel(Rndm.Next(0, channel.Length))
        client.SendMessage(TextBox4.Text)
        client.SendMessage("/p James : " & Rndm.Next(1, 99999))
    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        TextBox4.Visible = False
        applet = New Applet
        client = New KSClient(applet)
    End Sub
End Class