У меня есть таймер с интервалом 300, который делает эту работу
Try
Dim command As String = db.ListRightPop("command").ToString()
Console.WriteLine(command.Length)
TextBox1.text += command
Catch
End Try
Глобальные вещи
Dim redis As ConnectionMultiplexer = ConnectionMultiplexer.Connect("127.0.0.1")
Dim db As IDatabase = redis.GetDatabase()
Это дает мне System.StackOverflowException после запуска программы в течение 3-4 часов.