اين کنترل hWnd دارد?

[seyyed]

سلام
توي پرانتز رو چطوري بايد پر کنم؟ :

کد:

Dim i As Control
For Each i In Me
if ( ميباشد hWnd دارايi) then
...
End If
Next i

[shedayat]

توی خط اول به جای Control نام شی خودت رو بنویس.
مثال: Dim i as Picturebox

[hamed_Arfaee]

سلام
این یه نمونه :

کد:

On Error GoTo er1
Dim i As Control
For Each i In Me
    a = i.hWnd
Next i
Exit Sub
er1:
MsgBox i.Name
Resume Next

[seyyed]

دستور on error اصلا دستور مطمئني نيست خصوصا اگه تو يه حلقه اجرا بشه
راه ديگه اي نيست؟