Código de VB del ejemplo de usar un control en dos sitios

'------------------------------------------------------------------------------
' Para hacer pruebas con aplicaciones para la Windows Store         (04/Feb/13)
'
' ©Guillermo 'guille' Som, 2013
'------------------------------------------------------------------------------
Option Strict On
Option Infer On

Imports Windows.UI.ApplicationSettings


' The Blank Page item template is documented at http://go.microsoft.com/fwlink/?LinkId=234238

''' <summary>
''' An empty page that can be used on its own or navigated to within a Frame.
''' </summary>
Public NotInheritable Class MainPage
    Inherits Page

    ''' <summary>
    ''' Invoked when this page is about to be displayed in a Frame.
    ''' </summary>
    ''' <param name="e">Event data that describes how this page was reached.  The Parameter
    ''' property is typically used to configure the page.</param>
    Protected Overrides Sub OnNavigatedTo(e As Navigation.NavigationEventArgs)

    End Sub

    ' Añadir el botón de configuración al panel inferior    (04/Feb/13)
    ' para que siempre esté visible
    ' Pero sólo cuando se cierre la AppBar
    Private Sub mainBottomAppBar_Opened(sender As Object, e As Object)
        spRow2.Children.Remove(buttonSettings)
        spAppBarSettings.Children.Add(buttonSettings)

    End Sub

    Private Sub mainBottomAppBar_Closed(sender As Object, e As Object)
        spAppBarSettings.Children.Remove(buttonSettings)
        spRow2.Children.Add(buttonSettings)

    End Sub

    Private Sub buttonAlarmas_Click(sender As Object, e As RoutedEventArgs)
        mainBottomAppBar.IsOpen = False
        '... resto del código

    End Sub

    Private Sub button_Clock(sender As Object, e As RoutedEventArgs)
        mainBottomAppBar.IsOpen = False
        '... resto del código

    End Sub

    Private Sub button_Settings(sender As Object, e As RoutedEventArgs)
        If ApplicationView.Value <> ApplicationViewState.Snapped Then
            SettingsPane.Show()

        End If

    End Sub

    Private Sub GoBack(sender As Object, e As RoutedEventArgs)
        ' para que esté...

    End Sub



End Class