SAVOIR SI UNE FENÊTRE EST AFFICHÉE OU CACHÉE(MISE DANS LA BARRE EN BAS)

Private Declare Function IsIconic Lib "user32" ( ByVal hwnd As Long) As Long

Private Sub connaitre()
    Dim rep As Integer
    rep = IsIconic(Me.hwnd)
    If (rep <> 1) Then '  1 si la fenêtre est cachée
        MsgBox "La fenêtre n'est pas cachée", , ""
    Else'                        0 si elle est affichée
        MsgBox "Le fenêtre est cachée", , ""
    End If
End Sub