Visual Basic

Imports myprog.Control_DataCapsule 'this is a control containing several text boxes and buttons
Class Window1
Private MSVMobject As ClassMSVM = Nothing

    Private Sub Window1_Loaded()

        Try
            MSVMobject = New ClassMSVM
            AddHandler MSVMobject.VMexited, AddressOf Me.MSVM_VMexited
        Catch
            MsgBox("MSVM is not available on this machine.")
        End Try

    End Sub

    Friend Sub MSVM_VMexited()
        .
        .
        .
        Dim OdataCapsule As Control_DataCapsule 'causes an invalidOperationException
        .
        .
        .
    End Sub

    Private Sub StackPanel_ButtonClick(ByVal sender As Object, ByVal e As RoutedEventArgs)

        MSVMobject.StartVM()

    End Sub

End Class



Public Class ClassMSVM

    Public Event VMexited()

    Public Sub StartVM()
            .
            .
            .
            Dim myProcess As Process = New Process()
            myProcess.StartInfo.FileName = strStartupPath + "vmconnect.exe"
            myProcess.StartInfo.Arguments = "localhost " + VMname
            myProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
            myProcess.StartInfo.CreateNoWindow = True
            myProcess.EnableRaisingEvents = True
            AddHandler myProcess.Exited, AddressOf Me.VMconnectExited
            myProcess.Start()
    End Sub

    Friend Sub VMconnectExited(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim myProcess As Process = DirectCast(sender, Process)
        myProcess.Close()

        'trigger event that will be captured in Window1.xaml.vb
        RaiseEvent VMexited()

    End Sub

End Class

'in a separate vb file...
Partial Public Class Control_DataCapsule

    'member variables
    Public m_iIndexInList As Integer

    Public Sub New()
        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        m_iIndexInList = 0
    End Sub
    '*** SET ***
    Public Sub SetTitle(ByVal strTitle As String)
        Me.TextBoxTitle.Text = strTitle
    End Sub
    .
    .
    .
End Class