Spanish B4J ¿Cómo detectar el cursor del ratón sobre una etiqueta usando solo una subcategoría?

'...
'exemple create label
Dim Label1 As Label
Label1.Initialize("Label1")
Label1.SetLayoutAnimated(0, 0, 0, 100dip, 100dip)
Label1.Text = "OK"
Root.AddView(Label1, 0, 0, Label1.Width, Label1.Height)
'....
Private Sub Label1_MouseMoved (EventData As MouseEvent)
    Log("hover")
End Sub

'...
'exemple create multiples labels
For i = 1 To 30
    Dim lbl As Label
    lbl.Initialize("LBL")
    lbl.SetLayoutAnimated(0, 0, 0, 100dip, 100dip)
    lbl.Text = "Label " & i
    lbl.Tag = i
    Root.AddView(lbl, 0, (i * 100dip), lbl.Width, lbl.Height)
Next
'...
Private Sub LBL_MouseMoved (EventData As MouseEvent)
    Dim lbl As Label = Sender
    Log("hover " & lbl.Tag)
End Sub