Переименовать компоненты между собой (Visual Basic)

[viter.alex]

Имеется форма с компонентами. Как переименовать между собой два любых компонента c заданными именами?
Поменять свойства Name?
имена могут меняться (задаются пользователем).
Например, пользователь задает компонент с именем ‏L1 поменять именем с комонентом Т2. Тип компонентов неизвестен.
В принципе ход решения задачи понятен:

• Ищем компонент с нужным именем
• Его имя присваиваем временной переменной
• Имя второго компонента присваиваем первому
• Переименовываем второй компонент по временной переменной

Пытался сделать через Me.Controls, но что-то не получилось.

Код:

Dim temp As Object
For Each cntrl in Me.Controls
   If cntrl.Name="name1" Then 'задается пользователем
      temp=cntrl
   End If
Next

А вот чего дальше не знаю

[RXL]

viter.alex, попробуй так

Код: (Visual Basic)

  Set temp = cntrl

Подумай над эволюцией temp в цикле и что надо проверить.

[viter.alex]

Код: (Visual Basic)

  Set temp = cntrl

Не имеет значения, а редактор вообще Set убирает и оставляет просто операцию присваивания =

[viter.alex]

Есть ли метод для поиска компонента по его имени?
Смотрел Me.Controls.Find, но не понял, что она возвращает.

[viter.alex]

Вот решение для двух кнопок, но количество значения не имеет, только нужно знать имя

Код: (Visual Basic)

Public Class Form1

    Public temp1 As Object
    Public temp2 As Object
    Public temp3 As String

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        temp1 = Me.Controls.Find("Button1", False)
        temp2 = Me.Controls.Find("Button2", False)
        temp3 = temp1(0).Name
        temp1(0).Name = temp2(0).Name
        temp2(0).Name = temp3
        temp1(0).Text = temp1(0).Name
        temp2(0).Text = temp2(0).Name
    End Sub
End Class

"Button1" и "Button2" естественно можно поменять и заменить чем угодно.