• Home
 · 
• Miscellaneous
 · 
• One liner code

One liner code

One line code to display:
1 Display Control panel
2 View the display settings
3 Display Mouse settings
4 Display the Keyboard settings
5 Display Modem settings
6 Display Printer settings
7 Display time/date settings
Reposted from : "Stringer" ([email protected])

Rate One liner code

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

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