[ahmedabdelaliem]

السلام عليكم ورحمة الله وبركاته

كيف حالك اخي 

تفضل هذا الكود وقبل التشغيل ضع تكست بكس ولا تغير اسمه 

PHP كود :

Public Sub OpenDocument(strDocPath As String)
Dim G As Long
G = Shell("RUNDLL32.EXE URL.DLL,FileProtocolHandler " & strDocPath, vbNormalFocus)
End Sub

Private Sub Form_Load()
Text1.Text = "www.google.com"
End Sub
Private Sub Text1_Click()
If Text1.Text <> "" Then
Call OpenDocument(Text1.Text)
Else
Exit Sub
End If
End Sub 


بالتوفيق