فتح موقع عن طريق كود الفيجوال بيزك

السلام عليكم

دى طريقة لفتح اى موقع

Public 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)

Public Const SW_NORMAL = 1

Public Sub OpenWebsite(strWebsite As String)
  If ShellExecute(&O0, "Open", strWebsite, vbNullString, vbNullString, SW_NORMAL) < 33 Then
    ' Insert Error handling code here
  End If
End Sub

ودى طريقة تانى

Private Sub Command1_Click()
'Replace http://www.yahoo.com with the URL you want to launch.
'You can replace 'vbHide' with following settings, according to in which state
'you want to open the browser :
'vbHide; vbMaximizedFocus; vbMinimizedFocus;vbMinimizedNoFocus;
'vbNormalFocus; vbNormalNoFocus
RetVal = SHELL("Start.exe http://www.yahoo.com", vbHide)
End Sub

مرسي يا غالي وشكرا لاهتمامك