<?xml version="1.0" encoding="utf-8"?>
<CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <CodeSnippet Format="1.0.0">
    <Header>
      <Title>WDM - Outlook Panes Navigation</Title>
      <Shortcut>WDM-OutlookPanesNavigation</Shortcut>
      <Description>WDM - Outlook Panes Navigation [VB.NET]</Description>
      <Author>Daren Hawes</Author>
      <HelpUrl>/PreviewSnippet.aspx?SnippetID=24982b1b-d6d9-4bc9-b392-cc25b4a6f02b</HelpUrl>
      <SnippetTypes>
        <SnippetType>SurroundsWith</SnippetType>
      </SnippetTypes>
    </Header>
    <Snippet>
      <Code Language="VB"><![CDATA[Dim CurrentSelectedIndex As Integer = OutlookPanesControl1.SelectedIndex
        Select Case CurrentSelectedIndex
            Case 0 ' The Lounge
                HideAllPanels()
                TheLoungePanel.Visible = True
                TheLoungePanel.Location = New Point(184, 48)
            Case 1 ' Parties
                HideAllPanels()
                PartiesPanel.Visible = True
                PartiesPanel.Location = New Point(184, 48)
            Case 2 ' Orders
                HideAllPanels()
                OrdersPanel.Visible = True
                OrdersPanel.Location = New Point(184, 48)
            Case 3 ' Commission
                HideAllPanels()
                CommissionsPanel.Visible = True
                CommissionsPanel.Location = New Point(184, 48)
            Case 4 ' Reports
                HideAllPanels()
                ReportsPanel.Visible = True
                ReportsPanel.Location = New Point(184, 48)
            Case 5 ' Marketing
                HideAllPanels()
                MarketingPanel.Visible = True
                MarketingPanel.Location = New Point(184, 48)
                MarketingPanel2.Location = New Point(1184, 48)
            Case 6 ' Training
                HideAllPanels()
                TrainingPanel.Visible = True
                TrainingPanel.Location = New Point(184, 48)
            Case 7 ' Forum
                HideAllPanels()
                ForumPanel.Visible = True
                ForumPanel.Location = New Point(184, 48)
            Case 8 ' Manager
                HideAllPanels()
                ManagersPanel.Visible = True
                ManagersPanel.Location = New Point(184, 48)
            Case 9 ' Administration
                HideAllPanels()
                AdministrationPanel.Visible = True
                AdministrationPanel.Location = New Point(184, 48)
        End Select]]></Code>
    </Snippet>
  </CodeSnippet>
</CodeSnippets>