by Dipen Anovadia (19 Submissions)
Category: Windows System Services
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Wed 31st August 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Opens Control Panel File (Debugged,Updated)
'Desktop Properties @ Customize Desktop:
'OpenCPLFile "desk.cpl", ",@web"
'Time-Date Properties
'OpenCPLFile "timedate.cpl"
On Error Goto errOCF
Dim sFullCommand As String
'The command was incomplete in my previous code, sorry for that...
sFullCommand = "Rundll32.exe Shell32.dll,Control_RunDLL " & sCPL
'Commas ',' before arguments may not work with every cpl files
if Not (sArgs = "") Then _
sFullCommand = sFullCommand & "," & sArgs
Shell sFullCommand
Exit Sub
errOCF:
MsgBox Err.Description, vbCritical, "Error " & Err
Err.Clear
End Sub
'Comments are welcomed...