I'm sorry about that MOP. I Red Flagged my own post because I considered it inferior to ChipH's solution. It really
was inferior (it represented a sloppy programming practice I am trying to eliminate from my skill set) but since neither of us has had any luck with the "correct" solution I'll try to reconstruct the code. Hopefully, ChipH will post some good code. In the mean time...
If I remember correctly, I showed a way to shell to CONTROL.EXE with DESK.CPL as a command parameter and then used an arbitrary interval value in a timer to send an ENTER key to the control panel (assuming it was open by then). That was a little too sloppy. The following code shells to CONTROL.EXE and then checks to see if it has finished loading before it sends an ENTER key.
Place the following function and declarations in a module:[tt]
Public Declare Function GetWindowText Lib "user32" _
Alias "GetWindowTextA" (ByVal hwnd As Long, _
ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function EnumWindows Lib "user32" _
(ByVal lpEnumFunc As Any, ByVal lParam As Long) As Long
Public Function EnumProc(ByVal app_hwnd As Long, _
ByVal lParam As Long) As Boolean
Dim buf As String * 1024
Dim title As String
Dim length As Long
length = GetWindowText(app_hwnd, buf, Len(buf))
title = Left$(buf, length)
If InStr(title, "Display Properties"

> 0 Then
SendKeys "{ENTER}"
Form1.Timer1.Enabled = False
EnumProc = 0
Else
EnumProc = 1
End If
End Function[/tt]
Place the Command1 code wherever you need to activate the registry changes:[tt]
Private Sub Command1_Click()
Form1.Hide
Shell ("c:\windows\control.exe c:\windows\system\desk.cpl"

Timer1.Enabled = True
End Sub[/tt]
Set the interval for Timer1 to any non-zero value. It will enumerate all windows until the function EnumProc finds one with "Display Settings" in the title and sends an ENTER key.
[tt]
Private Sub Timer1_Timer()
EnumWindows AddressOf EnumProc, 0
End Sub
[/tt]
Like I said, this is a really sloppy way of doing business and, hopefully, one of the gurus in this forum will shed a little more light on the topic.
Good luck.