想做一个提示,请大家帮忙..

想做一个提示,请大家帮忙..请问高手一个问题,程序在处理数据中,会弹出另一窗体,告诉用户"系统正在处理数据",想在这个窗体弹出时程序处理数据,但用户不能切换到程序的其他界面,有什么好办法吗?这个窗体在很多时候都会用到,不想把处理数据的代码写在里面,只想他显示出来就行了....用frm.show vbModal就行加入下面代码 frmwait为要显示的窗体模块中加：Public Declare Function SetWindowPos Lib "User32" (ByVal hWnd As Long, _ ByVal hWndInsertAfter As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal cx As Long, _ ByVal cy As Long, _ ByVal wFlags As Long) As Long'按键中加： rtn = SetWindowPos(frmWait.hWnd, -1, 0, 0, 0, 0, 3) frmWait.Show '其它处理代码 '…………………… Unload frmWait'按键中加： Dim rtn As Long rtn = SetWindowPos(frmWait.hWnd, -1, 0, 0, 0, 0, 3) frmWait.Show '其它处理代码 '…………………… Unload frmWait不好意思，少了个定义就样做好像写在frm.show vbModal下面的处理数据代码不能执行了吧to ljhdi() 我在窗体上还想做一个动,你提出的方法,动画不能动呀..sysWait.Show vbmodalDoEvents做你想要做的事情。。。。然后unload syswait在syswait上装有timer1 在Timer1_Timer()中写代码处理数据时不能进行 timer1.Interval=1000呵呵，不要在SYSWAIT窗体里面做事，SYSWAIT窗体只是用来显示的~