Public strViewSwitchTask As String

        Private Sub InternalStartup(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Startup
            AddHandler DirectCast(EventManager.ControlEvents("buttEmail"), ButtonEvent).Clicked, AddressOf buttEmail_Clicked
            AddHandler EventManager.FormEvents.ViewSwitched, AddressOf FormEvents_ViewSwitched
            AddHandler EventManager.FormEvents.ContextChanged, AddressOf FormEvents_ContextChanged
        End Sub

        Public Sub buttEmail_Clicked(ByVal sender As Object, ByVal e As ClickedEventArgs)
            Me.CreateNavigator.SelectSingleNode("//my:contextTrap", Me.NamespaceManager).SetValue("View 1")
            strViewSwitchTask = "email"
            Me.ViewInfos.SwitchView("Email view")
        End Sub

        Public Sub FormEvents_ViewSwitched(ByVal sender As Object, ByVal e As ViewSwitchedEventArgs)
            Select Case strViewSwitchTask
                Case "email"
                    Me.Submit()

            End Select
            strViewSwitchTask = ""
        End Sub

        Public Sub FormEvents_ContextChanged(ByVal sender As Object, ByVal e As ContextChangedEventArgs)
            If (e.ChangeType = "ContextNode") Then
                Select Case e.Context.Name
                    Case "my:contextTrap"
                        Me.ViewInfos.SwitchView(Me.CreateNavigator.SelectSingleNode("//my:contextTrap", Me.NamespaceManager).Value)

                End Select
                Return
            End If
        End Sub