Visual Basic

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each ctl As Control In Me.Controls
            If TypeOf ctl Is Button Then
                If ctl.Text.Length = 1 Then
                    AddHandler ctl.Click, AddressOf btnKey_Click
                End If
            End If
        Next
    End Sub

    Private Sub btnKey_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        TextBox1.Focus()
        SendKeys.Send(sender.text)
        
    End Sub

End Class

Public Class Form1
    Private _timer As Timer
    Private _timerdisable As Timer

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        _timer = New Timer(500)
        _timer.AutoReset = True
        AddHandler _timer.Elapsed, AddressOf Timer_Elapsed
        _timer.Enabled = True

        _timerdisable = New Timer(5000)
        _timerdisable.AutoReset = True
        AddHandler _timerdisable.Elapsed, AddressOf TimerDisable_Elapsed
    End Sub

    Private Sub Timer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
        If Me.InvokeRequired Then
            Me.Invoke(New Action(Of Object, System.Timers.ElapsedEventArgs)(AddressOf Timer_Elapsed), Nothing, Nothing)
            Exit Sub
        End If

        Me.Text = Me.Enabled.ToString & "::" & Now.ToString
    End Sub

    Private Sub TimerDisable_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs)
        If Me.InvokeRequired Then
            Me.Invoke(New Action(Of Object, System.Timers.ElapsedEventArgs)(AddressOf TimerDisable_Elapsed), Nothing, Nothing)
            Exit Sub
        End If

        '----
        'stop the timer so it doesn't disable the form again.
        If Not Me.Enabled Then _timerdisable.Enabled = False
        '-----
        Me.Enabled = Not Me.Enabled
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        _timerdisable.Enabled = True
        MsgBox("HEY")
    End Sub
End Class

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