Private meshApp As MeshApplicationService
Public Sub New()
    InitializeComponent()

    meshApp = Application.Current.GetMeshApplicationService()
    AddHandler meshApp.LoadCompleted, AddressOf meshAppLoaded
    meshApp.LoadAsync(Nothing)
End Sub

Private Sub meshAppLoaded(ByVal o As Object, ByVal e As EventArgs)
    ' Data Feed の作成
    Dim feed = New DataFeed("Data Feed Sample")

    ' Data Feed の追加
    AddHandler meshApp.DataFeeds.AddCompleted, AddressOf DataFeedsAddCompleted
    meshApp.DataFeeds.AddAsync(feed, Nothing)
End Sub

' Data Feed の追加完了
Private Sub DataFeedsAddCompleted(ByVal sender As Object, ByVal e As Microsoft.LiveFX.Client.LiveItemEventArgs(Of Microsoft.LiveFX.Client.DataFeed))
    ' Data Entry の作成
    Dim entry = New DataEntry("Data Entry Sample")

    ' meshApp 最初の Data Feed に Data Entry 追加
    Dim feed = meshApp.DataFeeds.Entries.FirstOrDefault
    AddHandler feed.DataEntries.AddCompleted, AddressOf DataEntriesAddCompleted
    feed.DataEntries.AddAsync(entry, Nothing)
End Sub

' Data Entry の追加完了
Private Sub DataEntriesAddCompleted(ByVal sender As Object, ByVal e As Microsoft.LiveFX.Client.LiveItemEventArgs(Of Microsoft.LiveFX.Client.DataEntry))
    ' Data Entry 一覧表示
    For Each feed In meshApp.DataFeeds.Entries
        For Each entry In feed.DataEntries.Entries
            MyListBox.Items.Add(entry.Resource.Title)
        Next
    Next
End Sub

<UserControl x:Class="MeshApp1Silverlight.Page"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" 
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" 
    Width="400" Height="300">
    <Grid x:Name="LayoutRoot" Background="White">
        <ListBox x:Name="MyListBox" />
    </Grid>
</UserControl>

Dim loe = meshApp.LiveOperatingEnvironment
For Each mo In loe.Mesh.MeshObjects.Entries
    MyListBox.Items.Add(mo.Resource.Title)
Next