CACHER L'APPLI DE LA LISTE DES TACHES DE WINDOWS(IL MARCHE)

'Dans le module:

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 Long

Public Const SW_HIDE = 0
Public Const GW_OWNER = 4


'Dans la feuille:

Private Sub Form_Load()
        Dim hWndDeMonForm
        Dim ret As Integer
        hWndDeMonForm = GetWindow(Me.hwnd, GW_OWNER)
        ret = ShowWindow(hWndDeMonForm, SW_HIDE)
End Sub