Public Class StatusMachine2V
   Private m_StatusMachine2VM As StatusMachine2VM
   Sub New(Owner As Window, objStatusMachine2VM As StatusMachine2VM)
      MyBase.New(Owner)
      ' This call is required by the designer.
      InitializeComponent()
      ' Add any initialization after the InitializeComponent() call.
      Me.DataContext = objStatusMachine2VM
      m_StatusMachine2VM = objStatusMachine2VM
   End Sub
End Class