T
Temjeh
Guest
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==
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==