Стандартных диалогов довольно много, приведу сведения лишь о нескольких, самых употребительных, диалогах оболочки. Вначале декларации:

' Shutdown Dialog

Declare Function SHShutDownDialog Lib "Shell32" _
    Alias "#60" _
    (ByVal YourGuess As Long) As Long

' Restart Dialog

Declare Function SHRestartSystem Lib "Shell32" _
    Alias "#59" _
    (ByVal hOwner As Long, _
    ByVal sPrompt As String, _
    ByVal uFlags As Long) As Long

Public Const Restart_Logoff = &H0
Public Const Restart_ShutDown = &H1
Public Const Restart_Reboot = &H2
Public Const Restart_Force = &H4

' Run Dialog

Declare Function SHRunDialog Lib "Shell32" _
    Alias "#61" _
    (ByVal hOwner As Long, _
    ByVal hIcon As Long, _
    ByVal sDir As Long, _
    ByVal szTitle As String, _
    ByVal szPrompt As String, _
    ByVal uFlags As Long) As Long

Public Const Run_NoBrowse = &H1
Public Const Run_NoDefault = &H2
Public Const Run_CalcDir = &H4
Public Const Run_NoLable = &H8

' Format Dialog

Declare Function SHFormatDrive Lib "shell32" _
    (ByVal hWndOwner As Long, _
    ByVal iDrive As Long, _
    ByVal iCapacity As Long, _
    ByVal iFormatType As Long) As Long

' Properties Dialog

Declare Function SHObjectProperties Lib "shell32" _
    Alias "#178" _
    (ByVal hOwner As Long, _
    ByVal uFlags As Long, _
    ByVal sName As String, _
    ByVal sParam As String) As Long

Подробнее о некоторых из них.

Shutdown Dialog выводит на экран стандартный запрос на выход из системы. Это то самое окно, которое появляется, если в меню «Пуск» выбрать «Завершение работы». Вызвать этот диалог можно так:

SHShutDownDialog 0

Restart Dialog показывает запрос и после подтверждения операции осуществляет выключение или перезагрузку компьютера. Например, вызвать перезагрузку компьютера с подтверждением можно так:

Dim Prompt As String
Prompt = "Этот текст будет добавлен " & _
         "к стандартному запросу." & vbCrLf
SHRebootSystem Me.hWnd, Prompt, Restart_Reboot

Run Dialog аналогичен тому, что появляется, если в меню «Пуск» выбрать команду «Выполнить». Внешний вид этого диалога можно настроить, но если нужен в точности такой же диалог, то вызывать его нужно так:

SHRunDialog Me.hWnd, 0, 0, _
    vbNullString, vbNullString, 0

Format Dialog в простейшем варианте, вызывается так:

SHFormatDrive Me.hWnd, 0, 0, 0

Properties Dialog вызывает окно свойств, т. е. то окно, которое появляется, если во всплывающем меню выбрать пункт «Свойства». Скажем, окно свойств диска C: с активной закладкой «Доступ» будет выглядеть так:

SHObjectProperties Me.hWnd, 2, "C:\", "Доступ"