Option Explicit

 

Private Declare Function DisplayPopupWindowManagementDialog Lib "inetcpl.cpl" (ByVal hWnd As Long, ByVal lpURL As String) As Long

Private Declare Function LaunchSecurityDialog Lib "inetcpl.cpl" (ByVal hWnd As Long, ByVal dwZoneId As Long) As Long

Private Declare Function LaunchSiteCertDialog Lib "inetcpl.cpl" (ByVal hWnd As Long) As Long

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

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

Private Declare Function LaunchPrivacyDialog Lib "inetcpl.cpl" (ByVal hWnd As Long) As Long

Private Declare Function OpenFontsDialog Lib "inetcpl.cpl" (ByVal hWnd As Long, ByVal lpszRegPath As Any) As Long

Private Declare Function OpenLanguageDialog Lib "inetcpl.cpl" (ByVal hWnd As Long, ByVal dwUnknown1 As Long, ByVal dwUnknown2 As Long, ByVal dwUnknown3 As Long) As Long

 

Private Sub Command1_Click(Index As Integer)

Select Case Index

Case 0: Call DisplayPopupWindowManagementDialog(Me.hWnd, StrConv("http://mysite.com", vbUnicode)) ' WinXP SP2 Only?

Case 1: Call LaunchSecurityDialog(Me.hWnd, 1)   ' Choose Intranet as default

Case 2: Call LaunchSiteCertDialog(Me.hWnd)

Case 3: Call LaunchConnectionDialog(Me.hWnd)

Case 4: Call LaunchInternetControlPanel(Me.hWnd)

Case 5: Call LaunchPrivacyDialog(Me.hWnd)

Case 6: Call OpenFontsDialog(Me.hWnd, 0&)

Case 7: Call OpenLanguageDialog(Me.hWnd, 0, 0, 0)

End Select

End Sub