文字写在label的caption属性中，调用timer函数 附上我写的左右往复运动代码，实现image1在picture1中左右往复运动 Private Sub Timer1_TimerIf Image1Left = Picture1ScaleWidth Image1Width Then k = 1 If。

要完成此效果把如下代码加入到区域中 lt！ done = 0step = 1 function animyp，yk ifdocumentlayers documentlayersquotnapisquottop=ypelse documentallquotnapisquotstyletop=ypifypyk step =。

这里输入你想要的内容 ltMARQUEE 以上的代码是鼠标移上去后，文字就会停住，移开鼠标，文字又会动如果你想要用鼠标点击文字才让文字停住的话也行，只要把其中的onmouseover改成onmousedown就行，别的都不要变。