正在阅读：如何调用IE菜单中的internet选项如何调用IE菜单中的internet选项

　　Option Explicit

　　Private Declare Function LaunchInternetControlPanel Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long

　　Private Declare Function LaunchConnectionDialog Lib "inetcpl.cpl" (ByVal hwndParent As Long) As Long

　　'调用ie-工具-internet选项对话框

　　Private Sub Command1_Click()

　　Dim rc As Long

　　rc = LaunchInternetControlPanel(Me.hWnd)

　　If rc = 0 Then

　　MsgBox "LaunchInternetControlPanel failed!", vbExclamation

　　End If

　　End Sub

　　'调用ie-工具-internet选项对话框中的连接

　　Private Sub Command2_Click()

　　Dim rc As Long

　　rc = LaunchConnectionDialog(Me.hWnd)

　　If rc = 0 Then

　　MsgBox "LaunchConnectionDialog failed!", vbExclamation

　　End If

　　End Sub

　　'shell方式调用ie-工具-internet选项对话框

　　Private Sub Command3_Click()

　　Shell "C:\windows\control.exe Inetcpl.cpl ", vbNormalFocus

　　End Sub