Option Explicit
'--- Windows Control Panel applets
Private Const gACCESSIBILITY = "access.cpl"
Private Const gADDREMOVEPROGRAMS = "appwiz.cpl"
Private Const gCONSOLEWINDOWS = "console.cpl"
Private Const gDISPLAYSETTINGS = "Desk.cpl"
Private Const gPCMCIASETTINGS = "Devapps.cpl"
Private Const gFINDFAST = "Findfast.cpl"
Private Const gINTERNETCONNECTIONS = "Inetcpl.cpl"
Private Const gREGIONALSETTINGS = "Intl.cpl"
Private Const gJOYSTICKSETTING = "joy.cpl"
Private Const gMOUSESETTINGS = "main.cpl"
Private Const gMULTIMEDIASETTINGS = "Mmsys.cpl"
Private Const gMODEMSETTINGS = "Modem.cpl"
Private Const gNETWORKSETTINGS = "ncpa.cpl"
Private Const gODBCDATASOURCEADMINISTRATOR32 = "Odbccp32.cpl"
Private Const gPORTSETTINGS = "Ports.cpl"
Private Const gSAPCONFIGURATION = "Sapfcpl.cpl"
Private Const gSERVERSERVICES = "srvmgr.cpl"
Private Const gSYSTEMSETTINGS = "Sysdm.cpl"
Private Const gPHONESETTINGS = "telephon.cpl"
Private Const gDATETIME = "Timedate.cpl"
Private Const gUNINTERUPTABLEPOWERSUPPLY = "ups.cpl"
 
Private Sub Command1_Click()
Shell "rundll32.exe shell32.dll,Control_RunDLL " & gNETWORKSETTINGS & ",,3", 1
End Sub