迅速な返答ありがとうございます。

Private Sub Button1_Click(sender As Object, e As EventArgs)
    Dim i As Integer = 番号
    Dim o = Me.Controls(i) 'VB2008でない場合はControl型で 
    '↓処理を書く 

End Sub
の番号って、何でしょうか？

＞確か、iをString型にしてコントロールのNameプロパティの値にしても行くと思います。
とは、こういう事なのでしょうか？
Dim i As String = a.Name
        Dim o = Me.Controls(i)
        If o.Visible = True Then
            o.Visible = False
        Else
            o.Visible = True
        End If

それと、フォームは同じフォームを、複数表示させたいので
Form1_Loadの、外で　dim b as new form2
と、
宣言すると、一つしか出ないのですが解決策ないですか？