Private Sub UserForm_Initialize()
Dim retVal
If Val(Application.Version) < 9 Then
hwnd = FindWindow("ThunderXFrame", Me.Caption) '97
Else
hwnd = FindWindow("ThunderDFrame", Me.Caption) '2000
End If
With ComboBox1
.AddItem "1|(.bmp),.bmp"
.AddItem "2|(.jpg),.jpg"
.AddItem "3|(.png),.png"
.AddItem "4|(.gif),.gif"
.ListIndex = 0
End With
End Sub