Panel de control

Casualmente hice un proyecto en el que lanzaba varias opciones del panel de control, aquí te adjunto parte del código que sirve para lanzar la fecha y hora del sistema:
Public Shared Function EjecutarWindowsFechaYHora(ByRef Excepcion As Exception) As Boolean
'Variables requeridas
Dim Exc As Exception = Nothing
Dim Ruta As String = ""
Dim DirSistema As String = ""
Dim tmpP As Process = Nothing
Dim tmpInfo As ProcessStartInfo = Nothing
Try
DirSistema = Environment.GetFolderPath(Environment.SpecialFolder.System)
If Right(DirSistema, 1) <> "\" Then DirSistema &= "\"
Ruta = DirSistema & "timedate.cpl"
'Si no existe el archivo lanza la excepcion
If IO.File.Exists(Ruta) = False Then
Throw New Exception("No se ha encontrado el ejecutable para iniciar la aplicacion.")
End If
tmpP = New Process
tmpInfo = New ProcessStartInfo(Ruta, "")
With tmpInfo
.CreateNoWindow = False
.ErrorDialog = True
.RedirectStandardError = False
.RedirectStandardInput = False
.RedirectStandardOutput = False
.UseShellExecute = True
.WorkingDirectory = DirSistema
End With
tmpP.StartInfo = tmpInfo
If tmpP.Start() = False Then
Throw New Exception("No se ha podido iniciar el proceso.")
End If
Excepcion = Nothing
Return True
Catch ex As Exception
Exc = ex
GoTo SalidaError
End Try
Exit Function
SalidaError:
Excepcion = Exc
Return False
End Function
Si quieres lanzar otros elementos del panel de control solo debes cambiar el archivo que quieres lanzar, te pongo unos ejemplos:
Accesibilidad: access. Cpl
Actualizaciones Automaticas: wuaucpl. Cpl
Administrador de discos: diskmgmt. Msc
Administrador de tareas: taskmgr.exe
Administrador de dispositivos: devmgmt. Msc
Administrar equipo: compmgmt. Msc
Agregar hardware: hdwwiz. Cpl
Centro de seguridad: wscui. Cpl
Certificados: certmgr. Msc
Conexiones de red: ncpa. Cpl
Cofniguracion regional: intl. Cpl
...
...
Si necesitas saber algún elemento más házmelo saber y te paso el código completo.