Where am I? For the interested expert!

Hi experts,

Continuing my quest for the frame/form/view I'm in, I have built the class below. I have a frameset with 3 frames, and I want to find out where the focus is. In a later stage I want to shift the focus away from the current frame depending on the name of the form or view in the frame.

An object is instantiated in a form as follows:

Global Declarations:
Dim obj As MoveFocus

PostOpen event:
Set obj= New MoveFocus("formorviewname")
Call obj.Activate

and in a Script Library or in the Declarations section as well:
Class SpxMoveFocus
      Private elapsedTimer As NotesTimer
      Private ws As NotesUIWorkspace
      Private vname As String
      
      Sub New(nm As String)
            Print "New"
            Set elapsedTimer = New NotesTimer(1)
            elapsedTimer.Enabled= False            
            vname= nm
      End Sub
      
      Sub Activate
            On Event Alarm From elapsedTimer Call TimerHandler
            elapsedTimer.Enabled= True
      End Sub
      
      Sub DeActivate
            elapsedTimer.Enabled= False      
      End Sub
      
      Sub Blur
            Print "Blur"
      End Sub
      
      Private Sub TimerHandler(Source As NotesTimer)
            Dim s As String
            Dim uidoc As NotesUIDocument
            Dim doc As NotesDocument
            Dim uiview As NotesUIView
            Dim view As NotesView
            
            On Error Goto onerror
            Set ws= New NotesUIWorkspace
            If ws Is Nothing Then
                  Call DeActivate
                  Exit Sub
            End If
            Set uidoc= ws.CurrentDocument
            Set uiview= ws.CurrentView
            If Not(uidoc Is Nothing) Then      
                  Print "uidoc"
                  Set doc= uidoc.Document
                  If Not(doc Is Nothing) Then
                        Print "doc"
                        If doc.HasItem("Form") Then
                              Print "form"
                              s= doc.Form(0)
                              Print "String: " s
                              If s=vname Then
                                    Call Blur
                              End If
                        End If
                  End If
            End If
            If Not(uiview Is Nothing) Then
                  Print "uiview"
                  Set view= uiview.View
                  If Not(view Is Nothing) Then
                        Print "view"
                        s= view.Name
                        Print "String: " s
                        If s=vname Then
                              Call Blur
                        End If
                  End If
            End If
exitsub:
            Exit Sub
            
onerror:
            Print "Error on line " & Erl & ": " & Error$
            Resume exitsub
            Call DeActivate
      End Sub
End Class

As you can see, the class is stuffed generously with Print-statements, to find out what's going wrong. It should check every second what's the active part on the screen. It does so, but after a short while Notes might hang, loop and hang, crash, you name it. The sequence is as follows:
- the frameset is opened
- a simple form is loaded in the upper-left corner, read-only, with the calls as described above
- at the lefthand side, an Outline is displayed
- the righthand frame contains a view initially
- so far so good...
- sometimes, when you move the mouse, it goes in a loop (flashing sandglass)
- sometimes, it shows me the name of the view several times, I click here and there, looping again!
- you can get out of the loop, typing Esc several times and Ctrl-Break, but you have to be patient...
- I also had the famous Red Box of Death, I didn't know it does still exist (R6)
- of course, I have the NSD files
- if you remove the If-statements about the view then everything is hunkydory
- the Class does not matter, I tried with function calls in the form, to no avail

Anybody with a good idea? Or shall I call it a bug? How to report this to "the proper authorities"??

The related question can be visited under http:/Q_20796876.html

Regards,
   Sjef

PS I don't know how to assign a difficulty to this question. I'm afraid it's a Notes bug, and there is no solution. Nevertheless, I'll make it 500 points :)