学VB的进来，大家帮我分析下，我下面的程序什么意思，真心谢谢了~下面是用定时器实现字幕移动

没有上下文，真猜不透，不过如果只要文字动，那么我把代码精简为一下几行就能实现。

在界面上放一个定时器Timer1,改名为tmrMove，时间间隔Interval值改为1000，即1秒动一下；

再放一个水平滚动条HSscrollBar1，改名为hsbSpeed，他是控制每次移动距离的。

然后复制一下代码就可以了

Private Sub tmrMove_Timer() '利用定时器实现字幕移动

Speed = hsbSpeed.Value'设定移动速度

Dim intLc As Integer

intLc = lblShow.Width

If lblShow.Left >-intLc Then '如果没有到最左侧，负自己的宽度的位置，也就是说还没有移出去

lblShow.Left = lblShow.Left - Speed '每次移动的距离，有滚动条hsbSpeed决定。

Else '如果移出去了

lblShow.Left = 5415 '出现在最右边

End If

End Sub

错误分析：通常是由有问题的驱动程序引起的，比如罗技鼠标的Logitech MouseWare 9.10和9.24版驱动程序会引发这个故障。同时，有缺陷的内存、损坏的虚拟内存文件、某些软件（比如多媒体软件、杀毒软件、备份软件、DVD播放软件）等也会导致这个错误。

解决方案：

1、检查最近安装或升级的驱动程序和软件；

2、测试内在是否存在问题；进入“故障恢复控制台”，转到虚拟内存页面文件Pagefile.sys所在分区，执行“Del Pagefile.sys”命令，将页面文件删除；然后在页面文件所在分区执行“Chkdsk /r”命令；进入Windows后重新设置虚拟内存。

3、如果在上网时遇到这个蓝屏，而你恰恰又正在进行大量的数据下载和上传比如：网络游戏、BT下载，那么应该是网卡驱动的问题，需要升级其驱动程序。

---