请帮忙！关于程序自动伺服
程序的设想：编写一个自动ftp取数的程序，设定程序在规定的时间从已知的ftp服务器自动下载已知的文件！要实现这个目的，就需要在程序里加入伺服的模块，到了设定时间自动运行下载的功能。
程序设定了三个模块，第一个模块实现托盘的功能，点击右键弹出相应的功能（已实现，见图）
第二个模块是系统设置，比如时间，下载的目录等（已实现，见图）
第三个模块时伺服的模块，关键代码：
Do While True
If system_auto_run = 1 Then ‘判断是不是自动取数
If auto_time >= time_time And auto_time <= timetime + 5 Then‘时间判断
。。。。。。 ’开始运行所设定的程序行
end if
else
Exit Sub
End If
DoEvents
Loop
问题是，当我的程序进入上面的代码后，托盘右键失效了，弹不出菜单，而且通过 Windows 任务管理器察看 这个程序的cpu占用率达到100%，请帮忙！！！
