如何让控制台应用程序不响应用户输入

很多服务类的应用程序都是控制台应用程序的样子，而且酷酷的显示服务信息，但是又不允许用户输入，怎么实现的呢？其实很简单

Module Module1
    Sub Main()
        While (True)
            Console.ReadKey(True)
        End While
    End Sub

End Module           

其中ReadKey来读取用户的输入，其中将其参数设置为True，则在控制台中不显示用户输入的字符，怎么样是不是很简单