Imports System.Runtime.InteropServices Public Class Form1 Private Declare Function LaunchConnectionDialog Lib "inetcpl.cpl" _ (ByVal hWnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean Private Declare Function LaunchInternetControlPanel Lib "inetcpl.cpl" _ (ByVal hWnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean Private Declare Function LaunchPrivacyDialog Lib "inetcpl.cpl" _ (ByVal hWnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean Private Declare Function LaunchSecurityDialog Lib "inetcpl.cpl" _ (ByVal hWnd As IntPtr) As <MarshalAs(UnmanagedType.Bool)> Boolean Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click LaunchConnectionDialog(Me.Handle) End Sub Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click LaunchInternetControlPanel(Me.Handle) End Sub Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click LaunchPrivacyDialog(Me.Handle) End Sub Private Sub Button4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button4.Click LaunchSecurityDialog(Me.Handle) End Sub End Class