Pour désactiver la croix, il te faut supprimer le menu système fermer :
'fonction permettant de récupèrer le handle du menu système
Private Declare Function GetSystemMenu Lib "user32" ( _
ByVal hWnd As Long, _
ByVal bRevert As Long) As Long
'fonction permettant de supprimer un élément d'un menu
Private Declare Function DeleteMenu Lib "user32" ( _
ByVal hMenu As Long, _
ByVal nPosition As Long, _
ByVal wFlags As Long) As Long
'déclaration des constantes privées à la feuille
Private Const MF_BYCOMMAND = &H0
Private Const SC_CLOSE = &HF060
Private Sub Form_Load()
'on supprime le menu système pour fermer la feuille
Call DeleteMenu(GetSystemMenu(Me.hWnd, 0), SC_CLOSE, MF_BYCOMMAND)
End Sub
_______________________________________
DarK Sidious
[Responsable API/VB du site
www.ProgOtoP.com]
Téléchargez
ProgOtoP API Viewer