Overflow error

[Guest]

I got an overflow error:

Sub NoteOnClose(frm As Form)
....
z = GetWindowRect(frm.hwnd, r)
....
End Sub

Why is that ?

Thanks a lot.

 

[Bill Taylor]

Dim z as Double