How to call Internet Options in the IE menu Tool

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

'Call ie-tools-Internet option dialog box

Private sub commandementclick ()

Dim RC as long

Rc = launchinternetcontrolpanel (Me. hwnd)

If rc = 0 then

Msgbox "launchinternetcontrolpanel failed! ", Vbexclamation

End if

End sub

'Call the connection in the IE-tool-Internet option dialog box.

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 call ie-tool-Internet option dialog box

Private sub command3_click ()

Shell "C:/Windows/control.exe inetcpl. Cpl", vbnormalfocus

End sub