ShellCpl

Private CP As New ControlPanel

Private Sub Command1_Click()
P.HardWare
End Sub

'Here is the complete code For the Class module.


Option Explicit

Public Sub Access()
Dim A As Long
A = Shell("rundll32.exe shell32.dll,Control_RunDLL _
access.cpl,,5")
End Sub

Public Sub HardWare()
Dim B As Long
B = Shell("rundll32.exe shell32.dll,Control_RunDLL _
sysdm.cpl @1")
End Sub

Public Sub AddPrinter()
Dim C As Long
C = Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL _
AddPrinter")
End Sub

Public Sub Uninstall()
Dim D As Long
D = Shell("rundll32.exe shell32.dll,Control_RunDLL _
appwiz.cpl,,1")
End Sub

Public Sub WindowsSetUp()
Dim E As Long
E = Shell("rundll32.exe shell32.dll,Control_RunDLL _
appwiz.cpl,,2")
End Sub

Public Sub ShortCut()
Dim F As Long
F = Shell("rundll32.exe apwiz.cpl,NewLinkHere %1")
End Sub

Public Sub DateTime()
Dim G As Long
G = Shell("rundll32.exe shell32.dll,Control_RunDLL _
timedate.cpl,,0")
End Sub

Public Sub DUN()
Dim H As Long
H = Shell("rundll32.exe rnaui.dll,RnaWizard")
End Sub

Public Sub Display()
Dim I As Long
I = Shell("rundll32.exe shell32.dll,Control_RunDLL _
desk.cpl,,0")
End Sub

Public Sub Font()
Dim J As Long
J = Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL _
FontsFolder ")
End Sub

Public Sub FormatFloppy()
Dim K As Long
K = Shell("rundll32.exe shell32.dll,SHFormatDrive")
End Sub

Public Sub Modem()
Dim L As Long
L = Shell("rundll32.exe shell32.dll,Control_RunDLL _
modem.cpl,,add")
End Sub

Public Sub Sound()
Dim M As Long
M = Shell("rundll32.exe shell32.dll,Control_RunDLL _
mmsys.cpl,,0")
End Sub

Public Sub NetWork()
Dim N As Long
N = Shell("rundll32.exe shell32.dll,Control_RunDLL _
netcpl.cpl")
End Sub

Public Sub System()
Dim O As Long
O = Shell("rundll32.exe shell32.dll,Control_RunDLL _
sysdm.cpl,,0")
End Sub

Public Sub Restart()
Dim P As Long
P = Shell("rundll32.exe user.exe,restartwindows")
End Sub

Public Sub ShutDown()
Dim Q As Long
Q = Shell("rundll32.exe user.exe,exitwindows")
End Sub

Public Sub Control()
Dim rc As Long
rc = Shell("Control.exe", vbNormalFocus)
End Sub

' End Module ---


Make the same calls as above in the example
CP.Access
- or -
CP.HardWare
- or -
CP.AddPrinter
- or -


3dtech@thelakes.net