كيف أجعل lable تنسدل بالنقر عليها

للرفع

يا أخوانى أنا أقصد أن تكون مثل المثال المرفق أنا عملت كل الخطوات بالنص ولكن لم تزبط معاى لم أدرى وين المشكلة أرجو حل الإشكالية مع الشرح إذا أمكن ذلك.

Ab library New.rar

للرفع

استخدم خاصيات

High

Left

Top

Width

مع التايمر وذلك بالزيادة او التنقيص منها

وكل هذا في حدث Click Event

private sub label1_Click()
timer1.enabled = true
end sub

The Timer

Private sub timer1_tick()
label1.top +=10
label1.width += 10
label1.left +=10
end sub

وهكذا وسوف تتعلم

بالتوفيق