قرار دادن لینک در ویژیال بیسیک

سلام
چطوری میشه توی ویژال بیسیک توی برنامه ها لینک قرار داد من توی یکی از برنامه ها با کد زیر لینک قرار دادم که وقتی روش کلیک می شد توی بعضی از کامپیوترها صفحه مرورگر باز میشد و توی بعضی از سیستم ها ارور می داد
[PHP]Private Sub OpenUrl(URLName As String)
Dim objIE As Object
Set objIE = CreateObject("internetexplorer.application")
objIE.Visible = True
objIE.Navigate (Trim(URLName))
End Sub
Private Sub Command1_Click()
Call OpenUrl("site")
End Sub
[/PHP]
چطوری برنامشو بنویسم که توی همه کامپیوتر ها درست کار کنه و با مرورگرها مشکلی نداشته باشه؟

سلام :20:
********
برای باز کردن یه آدرس داخل مرورگر می تونید از تابع سیستمی ShellExecute استفاده کنید...///// کد های زیر رو داخل یه پروژه قرار بدید و نتیجه رو مشاهده کنید....////// :12:
**************
[PHP]
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
ShellExecute Me.hwnd, vbNullString, "http://www.google.com", vbNullString, "C:\", SW_SHOWNORMAL
End Sub
[/PHP]
******************
اگه متوجه نشدید بگید تا توضیح بدم........./// :11:
********************
موفق باشید! :46:

در ضمن لازم نیست که شما ها API ها رو فراخوانی کنید فقط کافیه یک Label درست کنید و آدرس سایت رو همراه با WWW در آن وارد کنید این کار نه سخته و نه خطایی داره بلکه از خطاهای دستوری هم جلوگیری می کنه تازه سرعت برنامتون رو هم افزایش می ده:11: