弱弱的问题

Question

XP中任务管理器有"应用程序" "进程" "性能"等等,我想让程序运行后在"应用程序"中隐藏起来,该怎么做?
注:把form1.visible=false 并把"状态栏"显示改成FLASE 也不行.急呀.......

Answer 1

Public Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Public Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As LongPublic Const SW_HIDE = 0
Public Const GW_OWNER = 4'将窗体从任务栏中隐藏
    Dim OwnerhWnd As Long
    Dim ret As Long    '设置主窗体不可见
    Me.Visible = False
    OwnerhWnd = GetWindow(Me.hWnd, GW_OWNER)
    '从任务栏中隐去窗体
    ret = ShowWindow(OwnerhWnd, SW_HIDE)