'btn2のテキストを変わるようにする Dim Number As Byte = 2 Private Sub btnClick_Click(… Dim ControlName As String = "btn" & Str(Number) ControlName.Text = "選択" End Sub