Private Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim hwnd As Long
hwnd = FindWindowA("Thunder" & IIf(Application.Version Like "8*", _
"X", "D") & "Frame", Me.Caption)
MsgBox hwnd
' Il est possible de remplacer Me.Caption par LeNomDuUserForm.Caption, tant qu'il appartient au VBProject.