قبل إضافة استفسارك ولكي لا يتعرض للحذف، أو ان تتعرض أنت للحظر، اقرأ قوانين قسم الإستفسارات
وعليكم السلام تفضل . Private Sub Command1_Click() 'Dr.Pain '[email protected] ExecLink "www.google.com", vbNormalFocus End Sub Private Sub ExecLink(Url As String, style As VbAppWinStyle) Shell "explorer.exe " & Url & "", stlye End Sub
قوانين المنتدى
