تبدیل یک String به نام یک کنترل

[__siavash__]

سلام
من یه String به نام Image1 دارم چه طوری میتونم اینو به یه کنترل تبدیل کنم ؟
یه کنترل با همین نام روی فرمم دارم !

[noorsoft]

امیدوارم با این کد کارت راه بیفته

Dim Obj as Object

Me.Controls(YourString)

[__siavash__]

سلام این کد درسته میشه یه String رو به عنوان نام یه کنترل بهش داد

 

Me.Controls(YourString)

اما من میخوام مثلا این طوری

 

Dim Obj as Object

Set Obj = Image1

ایم کد هم جوابگو هستش اما من چون مثلا 50 تا Image رو فرمم دارم میخوام تو یه حلقه اسمشونو بسازم بعد به عنوان یه کنترل Image ازشون استفاده کنم ؟
مثلا

 

Dim Obj as Object

Dim A As String

Dim i As Integer

A = "Image" & i

Set Obj = A

حالا i تو یه حلقه تغییر میکنه !