代码如下void MainFormKeyDownobject sender， KeyEventArgs e int intDev = 10switcheKeyCode case KeysLeftImage1Left = intDevbreakcase KeysRightImage1Left += intDevbreakcase KeysUpImage1Top = intDevbreakcase KeysDownImage1Top += intDevbreak。

lt！下面是向上滚动代码 var speed=30 这个是速度值越大速度越慢 butong_net_top2innerHTML=butong_net_top1innerHTML 克隆butong_net_top1为butong_net_top2 function Marquee1 当滚动至butong_net_top1与butong_net。

版本 2 子程序 __启动窗口_创建完毕 时钟1时钟周期 ＝ 100 子程序 _时钟1_周期事件 图片框1顶边 ＝ 图片框1顶边 － 1 如果正确请采纳，或者追加提问。

ltmarqueeltmarquee 往右是ltmarquee direction=rightltmarquee 往上是ltmarquee direction=upltmarquee 往下是ltmarquee direction=downltmarquee 如果需要在当鼠标移动到图片上时停止滚动，就在ltmarquee里加onmouseover=stoponmouseout=start，例如ltmarquee direction=down onmouseover=sto。

zidongCaption = quot自动quotshoudongCaption = quot手动quottuichuCaption = quot退出quotTimer1Enabled = True Timer1Interval = 500 Picture1Picture = LoadPicturequotquot #39随意加载一个图片，先单击自动加载，而后才可以手动 End Sub Private Sub shoudong_ClickTimer1Enabled = False End Sub Private。