恩是的 但是有没有办法隐藏再状态栏里面啊？

简单!是不是像迅雷那样

Private Sub Form QueryUnload(Cancel AS Integer,Unload Mode As Integer)
Cancel = True
Me.hide
End Sub

不信复制试试

不好意思 掉了一个_

Form_QueryUnload

_________________________
Private Sub form_queryunload(cancel As Integer, unloadmode As Integer)
cancel = True
Me.Hide
End Sub