روش تشخیص شکل ایجاد شده روی فرم در زمان اجرا

[siryahya]

با سلام
دوستان من یه برنامه ای شبیه جاروبرقی میخام بنویسم ولی یه جایی موندم که شاید به نظر خیلی راحت باشه!
من اومد چند تا شکل به صورت رندم روی فرم در زمان اجرا تولید کردم، حالا یه picturebox دارم به عنوان جاروبرقی، که از اول فرم شروع میکنه به آخر، حالا تو مسیر اگه به این اشکال برسه باید اون شکل رو حذف کنه از فرم همون hide

مشکل من: نمیدونم چطور تشخیص بدم picturre box به شکل که به عنوان آشغال هستند برخورد میکنه
چطوری تشخیص بدم؟؟
نکته: نمیخام زمان اجرا موقعیتشونو ذخیره کنم و اونوطوری پیدا کنم، میخام تقریبا کارم شبیه جاروبرقی باشه

[siryahya]

اینم کد نصفه کاره
فقط اگه بگید ممنون میشم تموم میکنم میزارم اگه کسی نیاز داشت
Dim Steps_jaro As Byte
Dim andaze As Byte
Private Sub Clean_trash()
'If (jaro.Left + jaro.Width) >= Then
'inja mikham test konam in barkhord ba shape ro
'
'
'
'
'
'
End Sub
Private Sub set_trash()
Dim tedad As Byte, i As Byte
tedad = 0
Do While (tedad = 0)
tedad = Fix(Rnd * (10))
Loop
For i = 1 To tedad
Next
End Sub

Private Sub reset_controls()
''''''''reSet the controls
Steps_jaro = 50 'Step jaro
andaze = 20 'tedad jaroye jashavande ro form

jaro.Left = 0
jaro.Top = 0

Form1.Height = jaro.Height * andaze
Form1.Width = jaro.Width * andaze

Form1.Picture = LoadPicture(App.Path & "\_Data\moket.jpg")
'''''''''''''''''''''''''''
End Sub

Private Sub Form_Load()
Randomize
Call reset_controls
Call set_trash
End Sub



راستی اینم بگم این شیپ ها به صورت آرای ها هستند که زمان اجرا تولید کردم پس عملا به نظرم نمیتونم بگم شیپ 1 مختصاتش با جارو برابر بود حذف کنه، بازم شاید درک غلطی دارم

[siryahya]

Private Sub Clean_trash()
'If (jaro.Left + jaro.Width) >= Then
'inja mikham test konam in barkhord ba shape ro
'
'
'
'
'
'
End Sub

فقط تو این قسمتش مشکل دارم که چطوری تشخیص بدم picturebox به shape میخوره. شیپی که ارایه ای هست و نام اونم نمیدونم!