求教　[金字塔]

sub dynamic_Load()                                      //框架加载时判定时间然后设立计时器
if  time>"15:50:00"    then
call application.SetTimer(0,5000)

end if
end sub

sub dynamic_Close()                                   //框架关闭时消除计时器
application.KillTimer(0)
application.ClearMsg

end sub

Sub APPLICATION_Timer(ID)                       
if ID=0 then
set Grid = dynamic.activegrid
set reportdata = Grid.GetReportData
price = reportdata.newprice 
call Grid.DRAWTEXT(100, 100,price,vbGreen)

application.MsgOut price

end if
End Sub