by Dipen Anovadia (19 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Thu 25th August 2005
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Open Control Panel Files.
'Desktop Properties @ Customize Desktop:
'OpenCPLFile "desk.cpl", ",@web"
'Time-Date Properties
'OpenCPLFile "timedate.cpl"
On Error Goto errOCF
Dim sFullCommand As String
sFullCommand = "Rundll32.exe " & 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...