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
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