Pas d'accès au bureau et aux applicatications

Bonjour,
J'ai bien une solution mais je devrais savoir.. Tu emploi une MDIForm ? si non.. Tu appel plusieur form
A+

Avec VB6 pas moyen de mettre 2 MdiForm !!! alors.. c'est bien VB6
Pour répondre à ce que je connaîs,
1°) Une seule feuille Mdi
Toutes les form MdiChild
Si condition remplie, bloquer la souris sur la surface de la mdiForm
Tu dis

Répondre aux question Svp : Toutes les form MdiChild ?

J'ai refais les tests avec...
La barre des râches de windows qui se cache, sinon faudra ajouter du code pour déterminer la hauteur de la barre des tâches et soustraire cette hauteur.
Je te conseil, avant de lancer le code de mettre une pictureBox dans la Mdi et un bouton pour ferme l'appli (provisoir) parceque tu ne sauras plus en sortir autrement.
Reste les raccourci Windows ainsi que Ctrl+Alt+Del, c'est la raison pour leque j'ai mis dans l'événement Deactivate <Fermer le PC> ce qui devra aussi être mis dans le Click du bouton.

Private Declare Function GetClipCursor Lib "user32" (lprc As RECT) As Long

Private Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long
Private Type RECT
      Left As Long
      Top As Long
      Right As Long
      Bottom As Long
End Type
Dim RectRemet As RECT
Const cTwipsToPixel = 0.066666

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub MDIForm_Deactivate()
    'Fermer le PC
End Sub

Private Sub MDIForm_Load()
Dim RectMDI As RECT
    Call GetClipCursor(RectRemet)
    Me.WindowState = 2
    RectMDI.Top = 20
    RectMDI.Left = 0
    RectMDI.Right = Me.Width
    RectMDI.Bottom = (Screen.Height * cTwipsToPixel) - 5
    Call ClipCursor(RectMDI)
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    Call ClipCursor(RectRemet)
End Sub

Fais gaffe, c'est assez pointu et risque de bloquer le PC si tu n'est pas prudent ou que tu ne fait pas ce que je t'ai suggéré plus haut.
Pour fermer Windows tu sais faire ?
Tu dis

Ah bon,
Les déclarations tu met ça tout en haut du module de la Mdi
le code tu met dans le MDIForm_Load

Private Sub MDIForm_Load()
Dim RectMDI As RECT
    Call GetClipCursor(RectRemet)
    Me.WindowState = 2
    RectMDI.Top = 20
    RectMDI.Left = 0
    RectMDI.Right = Me.Width
    RectMDI.Bottom = (Screen.Height * cTwipsToPixel) - 5
    Call ClipCursor(RectMDI)

    '.... Ensuite le code qui est déjà dans MDIForm_Load

Décidément...
Si toutes les forms sont des MdiChild comme demander plus haut, c'est la MDI qui doit démarre en premier
quitte dans le Mdi_Load à faire appel à cette feuille après.
Mais au vu de tes réponses et questions je pense que tu n'est pas assez avancé en programmation pour implémenter la solution, aussi laisse tomber cette approche, cherche quelque chose de plus simple (je doute que ça existe)

L'expérience instruit plus sûrement que le conseil. (André Gide)
Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

En voulant créer un projet démo je m'aperçoit que c'est plus complquer que prévu.
Ca focnctionne très bien sur la feuille MDi mais dés qu'ont ouvre une feuille fille windows remet la plage de l'écran complète.
Ca aussi j'ai résolu en remettant la restriction.
Mais dés que l'ont déplace la feuille fille c'est la même chose, windows remet la plage de l'écran et il n'y a pas d'événement pour connaître cette action.
J'ai encore une solution pour résoudre ce problème mais je pense que ça va devenir trop lourd à comprendre.
Il faut mettre des form sans barre de titre (BorderStyle = 0) et gérer les déplacement de la forme en interne.
Si tu y tient vraiment, tu dis et je verrais pour faire un projet qui fait ça