[RESOLVED]Shell System Properties

[TokersBall_CDXX]

for those interested

Dim wPath2 As String, strSave2 As String
strSave2 = String(200, Chr$(0))
wPath2 = Left$(strSave2, GetWindowsDirectory(strSave2, Len(strSave2)))
wPath2 = wPath2 & "\system32\rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0"
Shell wPath2

is how to shell system properties.


Thanx.