كد براي باز كردن يك آدرس اينترنت URL

[soroush_k12]

با سلام
سوالم ممكنه خيلي پيش پا افتاده باشه ولي چند روزه منو در گير كرده.
با چه كدي ميتوان يك صفحه ايترنتي(با url مشخص كه در خود كد وارد شده )را در يك ينچره اكسپلورر ويندوز باز كرد؟
مثلا يك ليست باكس داشته باشيم كه هر آيتم آن يك url باشد و با دابل كليك كردن روي هر آيتم پيج مربوط به همان آدرس باز شود.
با تشكر

[Abbas Amiri]

از روال زیر میتوانید استفاده کنید


Sub OpenWeb(UrlAddress)
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.navigate UrlAddress
Set IE = Nothing
End Sub