.NET (Core and Framework)

Private Shared Function GetMenuItemClickEvent(ByVal item As MenuItem) As EventHandler
    If (item Is Nothing) Then Return Nothing

    Dim allflags As BindingFlags = BindingFlags.Instance Or _
        BindingFlags.Public Or BindingFlags.NonPublic Or _
        BindingFlags.Static Or BindingFlags.FlattenHierarchy

    'Get the MenuItemData from the MenuItem
    Dim data As Object = item.GetType.GetField("data", _
                                          allflags).GetValue(item)
    'Get the onClick EventHandler from data
    Dim clickevent As Object = data.GetType.GetField("onClick", _
                                            allflags).GetValue(data)

    If (clickevent Is Nothing) Then
        'No method is linked to onClick, so onClick is null
        Return Nothing
    Else
        Return DirectCast(clickevent, EventHandler)
    End If
End Function