Public Class HelpWndVM

   'Private m_WebBrowser As WebBrowser
   'Public ReadOnly Property WebBrowser As WebBrowser
   '   Get
   '      Return m_WebBrowser
   '   End Get
   'End Property
   'Friend Sub SetWebBrowser(value As WebBrowser)
   '   m_WebBrowser = value
   'End Sub

   Sub New()
   End Sub

   Friend Sub LoadHtml()
      'm_WebBrowser.Source = New Uri("c:\EgtData\Icarus\Help\lm_1170\index.html")
   End Sub

End Class