Probleme avec ouverture USF

[h@nnoun]

Bonjour le Forum
mon probleme j'ai un USF qui s'ouvrai correctement sous win98 win2000 et XP avec ce
code
aujourd'hui je suis oblige de mettre en commentaire ce code pour que L'USF s'ouvre
pouvez-vous m'aider à resoudre mon probleme

Private Sub UserForm_Initialize()
Dim hWnd As Long, exLong As Long, zFactor As Integer

hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
zFactor = 100 * CInt(Application.Width / Me.Width)
Me.Width = Application.Width - 6
Me.Height = Application.Height + 8

Ini
End Sub


Merci pour vos reponses
H@nnoun

 

[MichelXld]

bonsoir à tous

pour empecher la fermeture de l'USF par la croix tu peux tester

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub


bon week end
MichelXld

 

[h@nnoun]

Bonsoir Michelxld le forum
je viens de voir ton message j'ai teste et en plus de la croix Alt F4 est bloque c'est formidable je vais pouvoir modifier mes differents usf en service

modifier les StartUpPosition =
et les Top


Merci Michelxld
@++
Bonne soirée
H@nnoun