Public Class GeometryListConfigV
   Private m_GeometryListVM As GeometryListConfigVM

   Sub New(Owner As Window, GeometryListVM As GeometryListConfigVM)
      MyBase.New(Owner)
      ' This call is required by the designer.
      InitializeComponent()
      ' Add any initialization after the InitializeComponent() call.
      Me.DataContext = GeometryListVM
      m_GeometryListVM = GeometryListVM
   End Sub
End Class