Public Class GuideView

   Private m_GuideViewModel As New GuideViewModel
   Public Shared m_Language As String
   Sub New(Owner As Window, GuideViewModel As GuideViewModel)
      MyBase.New(Owner)
      ' This call is required by the designer.
      InitializeComponent()
      ' Add any initialization after the InitializeComponent() call.
      Me.DataContext = GuideViewModel
      m_GuideViewModel = GuideViewModel
      DoorBrowser.Navigate(New Uri(IniFile.m_sHelpDir & "\" & m_Language & "\" & GuideViewModel.m_AddressGuide & ".html"))
   End Sub

End Class