كيف اجعل الماوس يتغير عند مروره فوق خط مرسوم

في المرفقات مثال يعتمد على معادلة المستقيم وعلى لونه، ففي الحدث MouseMove يتم التحقق من X و Y فإن حققتا المعادلة فإننا ننظر إلى لون النقطة التي تتحرك الفأرة فوقها، فإن كان اللون أسود نغير أيقونة الفأرة.

أرجو أن يكون هذا ما تريد :)

وفقك الله

awajihm.rar

شكرا لك

ولكن اذا كان الخط متعرج ويتكون من عدة نقاط

كيف نعمل ذلك

هل لهذا الخط المتعرج لون مميز لا يستخدم في أي مكان آخر ؟

if Picture1.Point(x,y) = vbBlack Then
....
Else
.....
End If