Fullycoded.com

===Start Vb code===
Private Sub Command1_Click()
‘Launch Windows Add New Hardware wizard
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1″, 5)
End Sub

Private Sub Command11_Click()
‘Launch Windows Sounds Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl @1″, 5)
End Sub

Private Sub Command12_Click()
‘Launch Windows Display Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0″, 5)
End Sub

Private Sub Command13_Click()
AboutProgrammer.Show
Explorer.Show
End Sub

Private Sub Command14_Click()
Dim intWidth As Integer
Dim intHeight As Integer

intWidth = Screen.Width \ Screen.TwipsPerPixelX
intHeight = Screen.Height \ Screen.TwipsPerPixelY
MsgBox “Screen Resolution:” + vbCrLf + vbCrLf + Str$(intWidth) + ” x” + Str$(intHeight), 64, “Info”

End Sub

Private Sub Command15_Click()
‘Launch Windows Modem Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL modem.cpl”, 5)
End Sub

Private Sub Command16_Click()
‘Launch Windows Password Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL password.cpl”, 5)
End Sub

Private Sub Command17_Click()
‘Launch Windows System Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0″, 5)
End Sub

Private Sub Command18_Click()
‘Launch Windows Multimedia Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0″, 5)
End Sub

Private Sub Command2_Click()
‘Launch Windows Add/Remove Programs Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1″, 5)
End Sub

Private Sub Command3_Click()
‘Launch Windows Date/Time Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL timedate.cpl”, 5)
End Sub

Private Sub Command4_Click()
‘Launch Windows Network Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl”, 5)
End Sub

Private Sub Command5_Click()
‘Launch Windows Internet Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL inetcpl.cpl,,0″, 5)
End Sub

Private Sub Command6_Click()
‘Launch Windows Keyboard Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL main.cpl @1″, 5)
End Sub

Private Sub Command7_Click()
‘Launch Windows Mouse Properties Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL main.cpl @0″, 5)
End Sub

Private Sub Command9_Click()
‘Launch Windows Regional Settings Dialog
Dim dblReturn As Double
dblReturn = Shell(“rundll32.exe shell32.dll,Control_RunDLL intl.cpl,,0″, 5)
End Sub
===End Vb code===

Category : Windows operation
Author : Aaron Bhatti
Version : Vb 6/Vb 5.