<code><font color=green>' Benötigte API</font>
Public Declare Function ShellExecute Lib "shell32.dll" Alias _
  "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
  ByVal lpFile As String, ByVal lpParameters As String, _
  ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Sub cmdRegEditOpen_Click()
  ShellExecute Me.hwnd, "Open", "Regedit.exe", "", "", vbNormalFocus
End Sub</code>