Console.Write("Type in ircserver: ")
            Dim server As String = Console.ReadLine
            Console.Write("Type in your nick: ")
            Dim nick As String = Console.ReadLine
            Console.Write("Type in alternativ nick: ")
            Dim anick As String = Console.ReadLine
            Console.Write("Type in channel to join: ")
            Dim chan As String = Console.ReadLine
            Dim clnt As New Clients.Irc.IrcClient(server, 6667, nick, anick)
            clnt.MessageInterval = 2500
            clnt.Ident = "huhu"
            clnt.Realname = "damaaan"
            clnt.AllowedChannels.Add(chan)
            clnt.ChannelsToJoin.Add(chan)
            clnt.AdminChatEnabled = True
            clnt.BeginConnect()
            AddHandler clnt.OnChannelMessage, AddressOf onmsg
            AddHandler clnt.OnJoin, AddressOf onjoin