窗体中有图片框(Picturel)和计时器(Timerl)两个控件。程序运行时,将图片加载到图片框中,然后图片框以每秒一次的速度向窗体的右下角移动,每次向左、向右移动300twip。
请填空。
Private Sub Form_Load()
Picturel.Picture=LoadPicture("c:\My Documents\图片\Qianl_Icon02.ico")
______
End Sub
Private Sub Timer1_Timer()
Static x,y As Integer
x=x+300
y=y+300
Picturel.Move x,y
End Sub