Sylvain,

Ok, I ran the sample code and it does that same thing here. Really wierd. I've tried several things but nothing is working yet. Will let you know if I come up with an idea.

The "Find" Dialog looks like it wants to be sort of modal. By detecting if a window with "Find" as a title is currently visible at the top of the timer event seems to prevent the problem.

A bit of a hack, but with a bit of extra work it might be acceptable. Localization will be an issue.

Another approach that would take some research would be to try to track down the window handle of the mappoint control and subclass for the desired messages.


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long


Private Function IsFindVisible() As Boolean
Dim lHwnd As Long
Dim lRet As Long

IsFindVisible = False

lHwnd = FindWindow(vbNullString, "Find")

If (lHwnd <> 0) Then
If (GetParent(lHwnd) = Me.hwnd) And (IsWindowVisible(lHwnd)) Then
IsFindVisible = True
End If
End If

End Function


and as the first executable line in the Timer event

If IsFindVisible() Then Exit Sub

Sylvain,

Did the post by: kdybvik do the trick for you? Sounds like it might be a good solution. Let us know if it worked out for you.

Yes John, I just finished trying it and it works fine.

Thanks for all your help, it was appreciated.

Sylvain