我用baSetDisplayEx Xtra 设置了屏幕的分辨率，但不知道如何设置刷新频率？

改变分辨率后系统默认刷新频率是 60Hz, 抖动太厉害，最好能设置到75以上

请问“baSetDisplayEx Xtra”可在程序运行时自动设置屏幕的分辨率，退出时恢复计算机原来的设置吗?可否给我发一个？谢谢！（ventvert@sina.com）
如果用lingo，可用什么属性！

baSetDisplayEx Xtra 在论坛里有连接，请查一下。

开始：
global deskTopRectListWidth,deskTopRectListHeight
on exitFrame me
deskTopRectListWidth=the deskTopRectList[1].width
deskTopRectListHeight=the deskTopRectList[1].Height
set OK = baSetDisplay( 640 , 480 , 32 , "temp" , false )
end

退出：
global deskTopRectListWidth,deskTopRectListHeight
set OK = baSetDisplay( deskTopRectListWidth , deskTopRectListHeight , 32 , "temp" , false )

用LBMRes 可以保持刷新频率不变！
开始：
global deskTopRectListWidth,deskTopRectListHeight
on exitFrame me
deskTopRectListWidth=the deskTopRectList[1].width
deskTopRectListHeight=the deskTopRectList[1].Height
set lbmxtra= new (xtra "LBMRes")
ChangetheRes (lbmxtra, 640,480,32, 0)
end

结束：
global deskTopRectListWidth,deskTopRectListHeight
on exitframe
set lbmxtra= new (xtra "LBMRes")
ChangetheRes (lbmxtra, deskTopRectListWidth,deskTopRectListHeight,32, 0)
quit
end

感谢老友Jason Zhang 提供 Xtra