برجاء التعديل علي كود فتح صفحة نت

برجاء التعديل علي الكود الاتي ليتناسب مع الزر المصنوع بالاداة AllButtons وهي بالمرفقات

ShellExecute hWnd, "open", "http://www.londonstockexchange.com/en-gb/pricesnews/prices/system/detailedprices.htm?sym=US68554N1063EGUSDIOB%203178380ORSD", vbNullString, vbNullString, conSwNormal

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

Private Sub Command1_Click()

ولكن برنامج الفيجول بيسك يرفضة عند اضافتة للزر

Private Sub ALLButton1_Click()

وهو المصنوع بالاداة AllButtons

برجاء التعديل علي الكود ليفتح صفحة الانترنت الاتية

http://www.londonstockexchange.com/en-gb/p...B%203178380ORSD

مع الشكر

AllButtons.zip