Доступ к элементу управления не из того потока, в котором он был создан

Imports System.Timers
Public Class Form1
    Private Shared aTimer As System.Timers.Timer
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Files() As String = IO.Directory.GetFiles("D:\processed\2011\11\27\", "*.txt", IO.SearchOption.TopDirectoryOnly)
        For x = 0 To UBound(Files)
            Dim But As New Button
            But.Name = "But" & x   'Задаём имя кнопки
            But.Size = New Size(100, 30) 'Размеры
            But.Tag = Files(x) ' добавляем название кнопки
            But.Location = New Point(50, (30 * x)) 'Расположение кнопки на форме
            But.Text = Files(x)
            'добавляем запуск обработчика нажатия кнопки
            AddHandler But.Click, AddressOf RunProgramButtonClick
            Me.Controls.Add(But) 'Добавляем созданный элемент на форму
            Me.ClientSize = New System.Drawing.Size(200, (30 * (x + 1)))
        Next x
        aTimer = New System.Timers.Timer(10000)
        AddHandler aTimer.Elapsed, AddressOf OnTimedEvent
        aTimer.Interval = 2000
        aTimer.Enabled = True
    End Sub
    Private Sub RunProgramButtonClick(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim b As Button = sender
        Dim frm As New Form
        frm.Visible = True
        frm.Name = b.Text
        frm.Text = b.Text
    End Sub
    Private Shared Sub OnTimedEvent(source As Object, e As ElapsedEventArgs)
        For Each frm In Application.OpenForms
            If frm.name <> "Form1" Then frm.Text = "1"
        Next
    End Sub
End Class

If frm.name <> "Form1" Then frm.Text = "1"

If frm.name <> "Form1" Then frm.Invoke(Sub() frm.text = "1")

If 9.txt.InvokeRequired Then
9.txt.Invoke(New Threading.ThreadStart(AddressOf DoSomeActions))
Else
DoSomeActions()
End If