[Taha Okla]

هذا كود فتح الروابط :

كود :

       Dim BrowserAddress As String = "C:\Program Files\Google\Chrome\Application\chrome.exe"
       Dim strUrl As String = "www.goolge.com"
       Shell(BrowserAddress & " " & strUrl, vbMaximizedFocus)

في الجزء الأول تضع عنوان المتصفح (تقريبا يقبلا أغلب أنواع المتصفحات).
ثم مسافة
في الجزء الثاني تضع الرابط الذي تريد فتحه
--
في القسم الثاني بعد الفاصلة تحدد هل تريد فتح الصفحة بكامل الشاشة أو عادي أو مصغر.