使用api
站在用户的角度思考问题，与客户深入沟通，找到垣曲网站设计与垣曲网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：网站设计、做网站、企业官网、英文网站、手机端网站、网站推广、申请域名、虚拟空间、企业邮箱。业务覆盖垣曲地区。
Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
在你给textbox设置text值后直接使用sleep()，因为在使用sleep（）的时候，当前的主进程是被挂起了，也就是说设置的text属性后，还来不及在屏幕上显示lbi的内容就执行了sleep，所以在执行sleep()挂起主进程前，你必须让textbox的内容先显示出来再执行sleep，可尝试使用下DoEvents（）将控制权暂时移交一下，让系统有时机来刷新textbox里面的内容，让系统有机会来刷新textbox里面的内容。由于我没有安装visual studio的开发环境，无法调试代码的正确性，但我记得我以前也遇到此类问题，采取的DoEvents()的方式。你可尝试下。
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也行。
线程开始就触发该过程，用无限循环来刷新状态，线程完成即退出无限循环。局部变量的线程也可以用这种方式。
不过用法要正确，否则会出问题。
软糖来回答罗：通过System.Diagnostics命名空间下的Process类来关闭程序的进程
Dim 进程集合 = Process.GetProcessesByName("进程名称")
For Each 进程 In 进程集合
进程.Kill()
'进程.Close() '或者使用关闭
Next
也可以先获取所有进程，再来判断这些进程的名称ProcessName
Dim 获取本地所有进程 = Process.GetProcesses()
For Each 进程 In 获取本地所有进程
If 进程.ProcessName = "explorer.exe" Then 进程.Kill()
Next
