Control Panel Applets

[bbosh]

How do I run them? Im using

Private Sub lstWinCP_DblClick
   FileMng.Run "C:\Windows\control.exe c:\windows\system\" + lstWinCP.List(lstWinCP.ListIndex) + ".cpl"
End Sub
Public Sub Run(CommandLine As String)
    Dim retval As Long, L As Single
    For x = 1 To Len(CommandLine)
        If Mid$(CommandLine, x, 1) = "\" Then ItsDir = Left(CommandLine, x)
        If Mid$(lcase$(CommandLine), x, 4) = ".exe" Then Exit For
    Next x
    Switchs = InStr(LCase$(CommandLine), ".exe")
    If Switchs > 0 And switches + 3 > Len(CommandLine) Then
        Param = Right(CommandLine, Len(CommandLine) - (Switchs + 5))
        CommandLine = Left(CommandLine, Switchs - 1)
    Else
        Param = ""
    End If
    retval = ShellExecute(frmMain.hwnd, "open", CommandLine, Param, ItsDir, SW_RESTORE)
    L = Timer
    While L + 4 > Timer
    DoEvents
    Wend
    frmTaskBar.Toolbar.Buttons.Clear
    frmTaskBar.LoadTaskList
End Sub

But that doesn't work. I've also tried calling the cpls w/o control.exe in front, but that doesn't seem to work either.

[EDITED TO FIX TWO BUGS IN RUN PROCEDURE]

[Edited by bbosh on 11-02-2000 at 08:31 PM]

[gwdash]

I believe the path used to call them is

c:\windows\rundll32.exe shell32.dll,Control_RunDLL FileName,Command Line Arguments