有关图按sin函数移到的问题

Question

Private Sub Form_Load()
Timer1.Interval = 150
End SubPrivate Sub Timer1_Timer()Static intpos As IntegerImage1.Top = Sin(intpos) * 500 + 1000　　‘　按曲线飞
Image1.Left = intpos
intpos = intpos + 50
If intpos * Form1.Width Then intpos = 0  '判定是否飞出窗体
End Sub
这是一个图按sin函数的一个VB程序，请问高手这个算法是怎么实现的，它又没有定坐标？intpos在加50后不还能SIN（INTPOS）吗？还在最后的那个是否飞出窗体是怎么回事？我刚接触到图形算法，对这个程序看不懂，请高手具体的给解释一个。

Answer 1

If intpos * Form1.Width Then intpos = 0  '判定是否飞出窗体
应该改成
If intpos > Form1.Width Then intpos = 0  '判定是否飞出窗体
如果图象移到了窗口的最右边就重新让它回到最左边,也就是.left=intpos=0