Author  

Language  

Operating Systems  

Option Explicit

'Launch the Control Panel Window
Public Sub RunControlPanel()
    Shell "rundll32.exe shell32.dll,Control_RunDLL", vbNormalFocus
End Sub

'Launch a Control Panel Extension
Public Sub RunControlPanelExtension(FileName As String)
    Shell "rundll32.exe shell32.dll,Control_RunDLL " & FileName, vbNormalFocus
End Sub

'Usage: create a form and add a FileListBox and two Command Buttons...
Private Sub Command1_Click()
    RunControlPanelExtension File1.FileName
End Sub

Private Sub Command2_Click()
    RunControlPanel
End Sub

Private Sub Form_Load()
    'Displays all the Control Panel Extension (*.CPL) files in the System32 path...
    File1.Pattern = "*.CPL"
    File1.FileName = "C:\WINNT\SYSTEM32"
End Sub