1,app.TaskVisible =False 
2,不知道

解决方案 »

  1.   

    这是回答你的第一个问题。呵呵!1
    Private Declare Function RegisterServiceProcess Lib "kernel32" (ByVal ProcessID As Long, ByVal ServiceFlags As Long) As Long
    Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
    Private Sub Form_Load()
       RegisterServiceProcess GetCurrentProcessId, 1
    End SubPrivate Sub Form_Unload(Cancel As Integer)
       RegisterServiceProcess GetCurrentProcessId, 0
    End Sub