在你给textbox设置text值后直接使用sleep()，因为在使用sleep（）的时候，当前的主进程是被挂起了，也就是说设置的text属性后，还来不及在屏幕上显示lbi的内容就执行了sleep，所以在执行sleep()挂起主进程前，你必须让textbox的内容先显示出来再执行sleep，可尝试使用下DoEvents（）将控制权暂时移交一下，让系统有时机来刷新textbox里面的内容，让系统有机会来刷新textbox里面的内容。由于我没有安装visual studio的开发环境，无法调试代码的正确性，但我记得我以前也遇到此类问题，采取的DoEvents()的方式。你可尝试下。
创新互联从2013年开始，是专业互联网技术服务公司，拥有项目网站制作、网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元建始做网站,已为上家服务,为建始各地企业和个人服务,联系电话:13518219792
lbl.Visible = True
Sleep(5000)
lbl.Text = "我是中国人"
lbi.Refresh '刷新一下lbi，具体你可以调试下，看需要不需要这条
Application.DoEvents() ‘设置完lbi的text属性，将操作权限释放一下，让系统有机会显示lbi的内容。
Sleep(3000) ’待显示后，再执行挂起
lbl.Text = "我爱自己的祖国"
lbi.Refresh ‘同上
Application.DoEvents() ’同上
DoEvents（）的功能解释是：转让控制权，以便让操作系统处理其它的事件。
如执行一次不行，可尝试重复多执行几次，特别在循环语句中，对于窗口的刷新显示DoEvents特别有用，但是在循环体内使用了DoEvents后，当前进程的执行效率会有大幅降低，因为移交控制权必然损失当前进程的运行效率。
用time控件啊，获取threadstate后，按指定时间间隔规定向界面刷新，线程必须是全局变量
用一个有退出条件的无限循环的sub也行。
线程开始就触发该过程，用无限循环来刷新状态，线程完成即退出无限循环。局部变量的线程也可以用这种方式。
不过用法要正确，否则会出问题。
多线程是用于处理复杂项目的
打个比方
你的主程序线程A中有个循环，由于代码是一行行走的，所以循环结束前下面的代码无法运行，而此时主界面的反应就类似卡死的样子，你点击按钮也没有反应，因为主线程在忙着循环呢，所以对按钮的事件代码要等待了，如果要避免这种情况，就要用到多线程，另开一个新线程专门用来执行循环代码，主界面就不会卡死了，只要在循环结束后将结果传回主线程调用就可以了，再复杂点要涉及到委托，控制了
按你的要求其实你的代码用不到多线程，只要把sleep放到两段代码中间就可以了。
新线程结束用thread.abort()
详细查看了你的问题，完全不需要使用线程sleep的方法。
在这边，我要给你引入一个概念。就是Form窗体的两个方法。
Form.Show()和Form.ShowDialog()
第一个Show方法运行后，你的主程序还是会进行，你的代码还是会继续进行下去。此时，窗体还是弹出的。
第二个ShowDialog方法运行后，此时，弹出的一个窗体，你不将其关闭，那么，主程序就会一直等待这个窗体关闭后，才执行后面的代码。
所以，你只需要使用showdialog这个方法，即可达到你想要的结果。
那么，如何才能让弹出的窗体不改变呢？很简单
你可以找到窗体的formcloseing事件，在这个事件中，有一个参数：e
这个e有一个属性，就是e.handle，表示是否处理过这个事件了。
这个时候，如果你不想让窗体关闭，你可以写：
e.handle=true，那么表示已经处理过窗体关闭的事件了。
注：有些情况，可能是：e.cancel=true
