Public Class HardwarePartV
   Private WithEvents m_HardwarePartVM As HardwarePartVM

   Sub New(HardwarePart As HardwarePartVM)
      ' This call is required by the designer.
      InitializeComponent()
      ' Add any initialization after the InitializeComponent() call.
      Me.DataContext = HardwarePart
      m_HardwarePartVM = HardwarePart
   End Sub
End Class