好像是只要把 App.TaskVisible = False 改变为False就可以了。

解决方案 »

  1.   

    抱歉,写错,是将App.TaskVisible 属性改变为Falsewww.applevb.com
      

  2.   

    Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long
    Declare Function GetCurrentProcessId Lib "kernel32" () As Long
    在Form_load()填
    RegisterServiceProcess GetCurrentProcessId, 1
      

  3.   

    tg123()说的是,先注册为一个service,但程序退出时要注销:
        Dim pid As Long
        Dim Regserv As Long
        pid = GetCurrentProcessId()
        Regserv = RegisterServiceProcess(pid, RSP_UNREGISTER_SERVICE)
      

  4.   

    请问xdd1125()不注销会出什么问题?
      

  5.   

    好象不注销也没什么吧,不过还是注销的好 :)
    const RSP_UNREGISTER_SERVICE=0