動態指定物件

'--------注意，此招數為大絕，導致身心迷幻本人不負責
For x = 1 To 10
Dim obj As Object = Me.Controls.Find(String.Format("ST{0}", x), false)
Dim lab As Label = CType(obj(0), Label)
lab.Text = String.Format("RoomNo:{0}", x + 1)
Next