VB中如何实现一段时间内如果过条件满足则执行一段代码，如果时间到条件仍不满足则继续执行后面的代码。

如题，例如我是用了一个winsock控件，连接完成之后5S内收到数据则把他显示出来，5S时间到仍然没有收到数据则继续执行后面的代码。