Hallo...
noch mal ein kleiner Nachtrag. Besser ist das ganze wie folgt...
Public Enum ScreenProperties
    TabBackground = 0
    TabScreensaver = 1
    TabAppearance = 2
    TabSettings = 3
End Enum
 
Public Sub GetDisplayDialog(nTab As ScreenProperties)
    If nTab < TabBackground Or nTab > TabSettings Then
        nTab = TabSettings
    End If
    Shell "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,," & nTab
End Sub
 
Private Sub Command1_Click()
    GetDisplayDialog TabScreensaver
End Sub
 
Private Sub Command2_Click()
    Unload Me
End Sub
Mfg
Frank