[填空题] 窗体中有图片框(Picture1)和计时器(Timer1)两个控件。程序运行时，将图片加载到图片框中，然后图片框以每秒一次的速度向窗体的右下角移动，每次向左、向右移动 300twip。请在

21 查阅

[填空题] 窗体中有图片框(Picture1)和计时器(Timer1)两个控件。程序运行时，将图片加载到图片框中，然后图片框以每秒一次的速度向窗体的右下角移动，每次向左、向右移动 300twip。请在程序空白处填入适当内容使程序完整。

Private Sub Form_Load()

Picture1.Picture = LoadPicture("c:My Documents图片\Qian1_Icon02.ico")

______

End Sub

Private Sub Timer1_Timer()

Static x, y As Integer

x = x + 300

y = y + 300

Picture1.Move x, y

End Sub

参考答案:

Timer1.Interval=1000

Interval属性返回或设置对Timer控件的计时事件各调用间的毫秒数；Timer事件在一个Timer控件的预定时间间隔过去之后发生，即每隔Interval属性设定的时间间隔，就会触发一次。题中要求每隔一秒移动一次，因此在窗体启动时，应将Timer1控件的Interval属性值设置为1000。