Public Sub MHTFormHandler_MouseOver(rControl As Control, _
  Button As Integer, Shift As Integer, ByRef Cancel As Integer)
  Dim obj2 As Object 'исключительно с целью поиска обхода _
  (и как Объект, и как Контрол, и как Вариант - пофик)'
  Dim bln 'исключительно с целью поиска обхода'
  Set obj2 = Me!eshpVSplitter 'исключительно с целью поиска обхода'
  bln = (rControl Is obj2) 'исключительно с целью поиска обхода (с разными вариациями)'
  'bln всегда = Ложь, соответственно, следующая процедура запущена никогда не будет!'
  If rControl Is Me!eshpVSplitter _
    Then eshpVSplitter_MouseOver Button, Shift, Cancel
End Sub

Public Sub MHTFormHandler_MouseOut(rControl As Control, _
  Button As Integer, Shift As Integer)
  'а так выглядит аналогичный еще не изуродованный вариант'
  If rControl Is Me!eshpVSplitter _
    Then eshpVSplitter_MouseOut Button, Shift
End Sub

'Откуда растут ноги:'
Private Sub eshpVSplitter_MouseMove(Button As Integer, _
  Shift As Integer, X As Single, Y As Single)
  On Error Resume Next
    Call MHTOnMouseMove(Me!eshpVSplitter, Button, X, Y, _
      MHTGenerateOptionsParametr(MHTcApplicLevel, MHTcLeftButton, _
      MHTcFormHandler,  10 ))
   ...
End Sub

Public Sub MHTOnMouseMove( _
                          CallerControl As Control, _
                          Button As Integer, X As Single, Y As Single, _
                          Options As Long)
  'здесь разные действия... в итоге переданный контрол запоминается в _
  переменной, чтобы позже (по таймеру) вернуться в код приведенный мной _
  в предыдущем посте'
End Sub

'Здесь запускаю процедуру, код которой привел в пред.посте:'
Private Sub RaiseEnterEventForTrackingControl()
Dim Cancel As Integer
On Error GoTo ErrH
  With HTControl
    If (.Options And MHTcFormHandler) Then
    ' Событие через Общий обработчик уровня формы !!! ЗАПУСКАЮ КОД:'
      Call .Control.Parent.MHTFormHandler_MouseOver( _
        .Control, mfGetMouseButtonsState(), mfGetShiftKeysState(), Cancel)
   #If ACCESS97 Then
  ...
End Sub