[اسلام الكبابى]

أعلم أن كود رسم نقطة هو مثلآ

كود :

PSet(30,20), vbRed
Form1.DrawWidth = 5

[b]
[b]كما أعلم أن هناك أداة تسمى shape[/b][/b]
[b]ويمكن التحكم فى شكلها ولونها بحيث تكون عبارة عن دائرة صغيرة(نقطة) بالكود التالى
[/b]

كود :

Shape1.Shape = 3
Shape1.Height = 5: Shape1.Width = 5
Shape1.BorderColor = vbRed

[b]ولكنى أريد كتابة كود معين عند ضغط المستخدم على هذه النقطة أو هذا ال shape
تمامآ كما نكتب كود عند ضغط المستخدم على أى text أو label
[/b]