All the system dialogs you'll probably ever need....

Code:
'Launch Windows Display Properties Dialog
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", 5)

'Launch Windows Date/Time Properties Dialog
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", 5)

'Launch Windows Keyboard Properties Dialog
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", 5)

'Launch Windows Internet Properties Dialog
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0", 5)

'Launch Windows Network Dialog
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl", 5)

'Launch Windows Password Properties Dialog
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL password.cpl", 5)

'Launch Windows Regional Settings Dialog
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0", 5)

'Launch Windows Sounds Properties Dialog
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1", 5)

'Launch Windows System Properties Dialog
Dim dblReturn As Double
dblReturn = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0", 5)

'Show the "Opens With" dialog
Private Sub Command1_Click()
Dim x As Long ' Decalres the Varible
x = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL C:\sql.log")
End Sub