masquer le X d'un UserForm

[Temjeh]

Bonsoir a tous

Juste pour savoir le code pour masquer le X d'un UserForm

Il me semble déja l'avoir vu
J'essaie ca mais en vain

Private Sub UserForm_Initialize()
Dim hWnd As Long
hWnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub

Merci è tous

Temjeh

A==

 

[Zon]

Salut,

Tu as oublié de mettre la déclaration de tes API en haut de ton module de l'userform:

Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long


A+++

 

[Temjeh]

Merci Zon j,avais aussi ce code mais je pensais pas qu'il fallait le mettre

Merci je réessais le tout

Temjeh