SoloCodigo

Option Explicit

Dim ObjShell As Shell32.Shell

Private Sub CommandButton1_Click()
  Set ObjShell = New Shell32.Shell

'// con esto llamas a cualquier item del panel de control
'// ...bueno no los he probado todos, pero en teoria asi debe ser!

  ObjShell.ControlPanelItem "timedate.cpl"
'//desk.cpl->para proiedades de pantalla
'//sysdm.cpl->para proiedades del sistema
'//...
End Sub
 

.. a recuerda hacer referecia a  "Microsoft Shell Controls And Automation"