Option Explicit

Public Sub MarkupLabelEnter(ByVal Sender As MarkupObject, ByVal Args As MarkupRoutedEventArgs)
   Debug.Print "Enter" & Rnd
End Sub
Public Sub MarkupLabelLeave(ByVal Sender As MarkupObject, ByVal Args As MarkupRoutedEventArgs)
    Debug.Print "Leave" & Rnd
End Sub

Public Sub MarkupLabelMouseMove(ByVal Sender As MarkupObject, ByVal Args As MarkupRoutedEventArgs)
    Debug.Print "Move" & Rnd
End Sub

Private Sub Form_Load()
   Dim lo_Context As MarkupContext
   Set lo_Context = MarkupLabel1.MarkupContext
   
   Dim lo_Border As MarkupBorder
   Dim lo_Container As MarkupStackPanel
   Dim lo_Text1 As MarkupTextBlock
   Dim lo_Text2 As MarkupTextBlock
   
   Set lo_Border = lo_Context.Parse("<Border Width='Auto' Height='Auto'></Border>")
   With lo_Border
      .AddHandler .MouseEnterEvent, "MarkupLabelEnter"
      .AddHandler .MouseLeaveEvent, "MarkupLabelLeave"
      .AddHandler .MouseMoveEvent, "MarkupLabelMouseMove"
      .Background = lo_Context.CreateSolidBrush(Me.MarkupLabel1.Parent.BackColor)
   End With
   
   Set lo_Container = lo_Context.CreateObject("StackPanel")
   
   Set lo_Text1 = lo_Context.CreateObject("TextBlock")
   With lo_Text1
      .Background = lo_Context.CreateSolidBrush(vbWhite)
      .Text = "Object above mouse event lo_Border object shouldn't block events."
   End With
   
   Set lo_Text2 = lo_Context.CreateObject("TextBlock")
   With lo_Text2
      .Background = lo_Context.CreateSolidBrush(vbGreen)
      .Text = "Another Object above mouse event lo_Border object shouldn't block events."
   End With
   
   lo_Container.Children.Add lo_Text1
   lo_Container.Children.Add lo_Text2
   
   Set lo_Border.Child = lo_Container
   
   Set MarkupLabel1.MarkupUIElement = lo_Border
   lo_Context.SetHandler Me
End Sub