One liner code

Private Sub Command1_Click()
'Display control panel
Call Shell("rundll32.exe shell32.dll,Control_RunDLL", _
 vbNormalFocus)
 
End Sub

Private Sub Command2_Click()
'View the display settings!
Call Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0", vbNormalFocus)
End Sub

Private Sub Command3_Click()
'
'Display Mouse settings with 1 line!
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @0", vbNormalFocus)
End Sub

Private Sub Command4_Click()
'Display the Keyboard settings with 1 line!
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @1", vbNormalFocus)
End Sub

Private Sub Command5_Click()
'Display Modem settings!
Call Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl", vbNormalFocus)
End Sub
Private Sub Command6_Click()
'Display Printer settings!
Call Shell("rundll32.exe shell32.dll,Control_RunDLL main.cpl @2", vbNormalFocus)
End Sub

Private Sub Command7_Click()
'Display time/date settings!
Call Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl", vbNormalFocus)

End Sub
Private Sub Form_Load()
Command1.Caption = "Display Control panel"
Command2.Caption = "View the display settings"
Command3.Caption = "Display Mouse settings"
Command4.Caption = "Display the Keyboard settings"
Command5.Caption = "Display Modem settings"
Command6.Caption = "Display Printer settings"
Command7.Caption = "Display time/date settings"
End Sub