no x close 2
 

It is also ThunderDFrame

--
Robin Hammond
www.enhanceddatasystems.com
Check out our XspandXL add-in


"Christy" wrote in message
...
Here is the code I am using to eliminate the x clsoe
button on my user forms.

Select Case Int(Val(Application.Version))
Case 8 'Excel 97
hWnd = FindWindow("ThunderXFrame",
oDialog.Caption)
Case 9 'Excel 2000
hWnd = FindWindow("ThunderDFrame",
oDialog.Caption)
End Select

Any one know what I need to add for Excel 2002?