SelectAll on field with mouse click entry

The LS code discussed here to auto-select a field upon entry works great if you tab into the field. Is there a way, also, to select the field if it is entered with a mouse click?

Here is the code I am using now:

Dim ws As NotesUIWorkspace

Dim UIDoc As NotesUIDocument

Sub HighlightText

If ws Is Nothing Then

	Set ws = New NotesUIWorkspace

	Set UIDoc = ws.CurrentDocument

End If

Call UIDoc.SelectAll

End Sub

*** Code is called on Entering event.

Subject: SelectAll on field with mouse click entry

This is the code I have on enetering event of field . .

Sub Entering(Source As Field)

Dim ws As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Set uidoc = ws.CurrentDocument

uidoc.SelectAll

End Sub

. . . and it does select all when entering the field with mouse and with tab . . strange . .cant really see a diffs between my code and yours.