أريد كتابة الكود فى شريط الأدوات

انا مش عارف انت عاوز ايه بالظبط؟

بس انا اظن انك تريد معرفة كيف تستجيب الازرار للأحداث التي تريد برمجتها بها، ففي ال toolber لا يوجد لكل زر حدث خاص به بل هو حدث واحد خاص بكل الازرار و الفكرة بسيطة تعامل معه كما لو كنت تتعامل مع control array كالاتي:

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Index
        Case 1: endprog
        Case 2: closeform
        Case 4: callfrmhelp
        Case 6: callfrmemp
        Case 7: callfrmcust
        Case 9: callfrmtypes
        Case 10: callfrmkinds
        Case 12: callfrmout
        Case 13: callfrmin
    End Select
End Sub

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

شكرا جزيلا يا اخ رومانتك وسأجرب وأعطيك النتيجة ان شاء الله وبالفعل مقلته هو ماأريده وأتمنى ان يعمل بشكل جيد .

ومشكور ويعطيك الف عافيه

أخى العزيز رومناتك

شكراً جزيلاً لقد جربت الكود واشتغل تمام ولكم جزيل الشكر