sub dynamic_Load()                                      //框架加載時(shí)判定時(shí)間然后設(shè)立計(jì)時(shí)器
if  time>"15:50:00"    then
call application.SetTimer(0,5000)

end if
end sub

sub dynamic_Close()                                   //框架關(guān)閉時(shí)消除計(jì)時(shí)器
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