Public Declare Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" _
 (ByVal hInstance As Long, ByVal lpTemplateName As Long, _
 ByVal hWndParent As Long, ByVal lpDialogFunc As Long, _
 ByVal dwInitParam As Long) As Long

        DialogBoxParam App.hInstance, 1001, 0, 0, 0 'AddressOf DialogBoxProc, 0

Public Declare Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" _
 (ByVal hInstance As Long, ByVal lpTemplateName As String, _
 ByVal hWndParent As Long, ByVal lpDialogFunc As Long, _
 ByVal dwInitParam As Long) As Long

        DialogBoxParam App.hInstance, "#1001", 0, 0, 0 'AddressOf DialogBoxProc, 0

   'Load the shell32 library that contains the dialog resource that i want to load.
    hShell32 = LoadLibrary("shell32.dll")
    If hShell32 <> 0 Then
        'Create a modal dialog from a dialog resource located in shell32.dll
        DialogBoxParam hShell32, 1003, 0, 0, 0 'AddressOf DialogBoxProc, 0
        'After we exit from the dialog, free the shell32 library.
        FreeLibrary hShell32
    End If
    
End Sub

1001 DIALOG 0, 0, 317, 183
STYLE WS_CHILD

101 DIALOG 0, 0, 185, 95
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION

Public Declare Function DialogBoxParam Lib "user32" Alias "DialogBoxParamA" _
 (ByVal hInstance As Long, ByVal lpTemplateName As String, _
 ByVal hWndParent As Long, ByVal lpDialogFunc As Long, _
 ByVal dwInitParam As Long) As Long
Public Sub ShowDialog()
  DialogBoxParam App.hInstance, MAKEINTRESOURCE(101), Form1.hwnd, AddressOf DialogProc, 0
End Sub

Private Declare Function CreateDialogParam Lib "user32.dll" Alias "CreateDialogParamA" ( _
 ByVal hInstance As Long, _
 ByVal lpTemplateName As String, _
 ByVal hWndParent As Long, _
 ByVal lpDialogFunc As Long, _
 ByVal dwInitParam As Long) As Long

Public Sub ShowDialog2()
  Dim hwndDlg As Long
  hwndDlg = CreateDialogParam(App.hInstance, MAKEINTRESOURCE(101), Form1.hwnd, AddressOf DialogProc, 0)
  ShowWindow hwndDlg, SW_SHOWNORMAL
End Sub

Private Function DialogProc(ByVal hwndDlg As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Dim NotidyCode      As Long
  Dim ItemID          As Long
  
  Select Case uMsg
    Case WM_COMMAND
      NotidyCode = HIWORD(wParam) ' wParam \ 65536
      ItemID = LOWORD(wParam)  'wParam And 65535
      'Check if you click "Close Me" button
      If (ItemID = 1000) And NotidyCode = BN_CLICKED Then
        'Close the dialog box
        EndDialog hwndDlg, 0
        DialogProc = 1 'the dialog box procedure should return TRUE if it processed the message
      End If
    Case Else
  End Select
End Function

5026 DIALOG 0, 0, 317, 143
STYLE WS_CHILD | WS_DISABLED

'Property Sheet Structures

'dwFlags - Flags that indicate which options to use when creating the property sheet page.
Public Const PSH_USEICONID = &H4 'Uses pszIcon as the name of the icon resource to load and use as the small icon in the title bar
Public Const PSH_WIZARDHASFINISH = &H10 'Always displays the Finish button on the wizard.
Public Const PSH_WIZARD = &H20 'use with PSH_AEROWIZARD
Public Const PSH_AEROWIZARD = &H4000 'Aero style
Public Const PSH_WATERMARK = &H8000& 'Specifies that a watermark bitmap will be used with a Wizard97 wizard on pages that have the PSP_HIDEHEADER style.
Public Const PSH_STRETCHWATERMARK = &H40000 'old
Public Const PSH_HEADER = &H80000  'Indicates that a header bitmap will be used with a Wizard97 wizard.
Public Const PSH_WIZARD97 = &H1000000 '(don't use &H2000)Creates a Wizard97-style property sheet, which supports bitmaps in the header of interior pages and on the left side of exterior pages.

Public Type PROPSHEETHEADER
  dwSize As Long
  dwFlags As Long
  hWndParent As Long
  hInstance As Long
  Union_hIcon_pszIcon As Long
  pszCaption As Long 'Ptr
  nPages As Long
  Union_nStartPage_pStartPage As Long
  Union_ppsp_phpage As Long
  pfnCallback As Long
  Union_hbmWatermark_pszbmWatermark As Long 'Ptr
  hplWatermark As Long
  Union_hbmHeader_pszbmHeader As Long 'Ptr
End Type

' dwFlags - Flags that indicate which options to use when creating the property sheet page
Public Const PSP_USETITLE = &H8
Public Const PSP_HIDEHEADER = &H800
Public Const PSP_USEHEADERTITLE = &H1000
Public Const PSP_USEHEADERSUBTITLE = &H2000

Public Type PROPSHEETPAGE
  dwSize As Long
  dwFlags As Long
  hInstance As Long
  Union_pszTemplate_pResource As Long 'Ptr
  Union_hIcon_pszIcon As Long
  pszTitle As Long
  pfnDlgProc As Long
  lParam As Long
  pfnCallback As Long
  pcRefParent As Long
  pszHeaderTitle As Long 'Ptr
  pszHeaderSubTitle As Long 'Ptr
  hActCtx As Long
End Type

'Property Sheet Functions
Public Declare Function CreatePropertySheetPage Lib "comctl32.dll" _
 Alias "CreatePropertySheetPageA" (ByRef lppsp As PROPSHEETPAGE) As Long
Public Declare Function PropertySheet Lib "comctl32.dll" _
 Alias "PropertySheetA" (ByRef lppsph As PROPSHEETHEADER) As Long
 
'Property Sheet Notifications
Public Const PSN_FIRST = (0 - 200)
Public Const PSN_SETACTIVE = (PSN_FIRST - 0)
Public Const PSN_WIZBACK = (PSN_FIRST - 6)
Public Const PSN_WIZNEXT = (PSN_FIRST - 7)
Public Const PSN_WIZFINISH = (PSN_FIRST - 8)

'Property Sheet Messages

'lParam - Value that specifies which property sheet buttons are enabled.
Public Const PSWIZB_BACK = &H1
Public Const PSWIZB_NEXT = &H2
Public Const PSWIZB_FINISH = &H4
Public Const PSWIZB_DISABLEDFINISH = &H8

Public Const PSM_SETWIZBUTTONS = (WM_USER + 112)

'SetWindowLong - Sets the new address of the dialog box procedure
Public Const DWL_MSGRESULT = 0

Public ahpsp(0 To 7) As Long

Public Sub CreateMyWizard()

  Dim psp As PROPSHEETPAGE

  With psp
    .dwSize = LenB(psp)
    .hInstance = App.hInstance
    If sys_WinVista Then
      .dwFlags = PSP_USEHEADERTITLE
      .pszHeaderTitle = 12
      .Union_pszTemplate_pResource = 201
    Else
      .dwFlags = PSP_HIDEHEADER Or PSP_USETITLE
      .pszTitle = 1
      .Union_pszTemplate_pResource = 101
    End If
    .pfnDlgProc = FARPROC(AddressOf IntPage0DlgProc)
  End With
  ahpsp(0) = CreatePropertySheetPage(psp)
...  
  Dim psh As PROPSHEETHEADER
  With psh
    .dwSize = LenB(psh)
    .hInstance = App.hInstance
    .hWndParent = 0
    .Union_ppsp_phpage = VarPtr(ahpsp(0))
    If sys_WinVista Then
      .dwFlags = PSH_WIZARD Or PSH_AEROWIZARD Or PSH_USEICONID
      .pszCaption = 1 'vista
      .Union_hIcon_pszIcon = 201 'vista
    Else
      .dwFlags = PSH_WIZARD97 Or PSH_HEADER Or PSH_WATERMARK
      .Union_hbmWatermark_pszbmWatermark = 201
      .Union_hbmHeader_pszbmHeader = 202
    End If
    .Union_nStartPage_pStartPage = 0
    .nPages = 8
  End With
  
  PropertySheet psh
End Sub

    Case WM_INITDIALOG
      'делаем крестик (Close) disabled
      Dim hMenu As Long
      hMenu = GetSystemMenu(GetParent(hwndDlg), False)
      DeleteMenu hMenu, SC_CLOSE, MF_BYCOMMAND

    Case WM_INITDIALOG
       ...GetParent(hwndDlg)...

Public Const PSH_USECALLBACK = &H100 'Calls the function specified by the pfnCallback member

'Dialog Box Structures

Public Type DLGTEMPLATE
  style As Long
  dwExtendedStyle As Long
  cdit As Integer
  x As Integer
  y As Integer
  cx As Integer
  cy As Integer
End Type

Public Type DLGTEMPLATEEX
  dlgVer As Integer
  signature As Integer ' If signature is 0xFFFF, this is an extended dialog box template
  helpID As Long
  exStyle As Long
  style As Long
  cDlgItems As Integer
  x As Integer
  y As Integer
  cx As Integer
  cy As Integer
  '...ХЗ
End Type

'PropSheetProc callback function
'uMsg -Message being received.
Public Const PSCB_INITIALIZED = 1
Public Const PSCB_PRECREATE = 2 'not applicable if Aero wizard

...
  Dim psh As PROPSHEETHEADER
  With psh
...
    If sys_WinVista Then
      .dwFlags = PSH_WIZARD Or PSH_AEROWIZARD Or PSH_USEICONID Or PSH_USECALLBACK
...
    Else
      .dwFlags = PSH_WIZARD97 Or PSH_HEADER Or PSH_WATERMARK Or PSH_USECALLBACK
...
    End If
    .pfnCallback = FARPROC(AddressOf PropSheetProc)
...
  End With
  PropertySheet psh
End Sub


Private Function PropSheetProc(ByVal hwndDlg As Long, ByVal uMsg As Long, _
 ByVal lParam As Long) As Long
  Dim IntSignature As Integer 'pDlgTemplateEx->signature
  Dim pDlgTemplate As DLGTEMPLATE
  Dim dwStyle As Long
  
  Debug.Print uMsg
  Select Case uMsg
    Case PSCB_PRECREATE
      'способ #1:это не работает на PSH_AEROWIZARD!!!
      'Debug.Print "PSCB_PRECREATE"
      Call CopyMemory(IntSignature, ByVal (lParam + 2), 2)
      Debug.Print IntSignature
      If IntSignature <> &HFFFF Then 'if (pDlgTemplateEx->signature != 0xFFFF)
        Call CopyMemory(pDlgTemplate, ByVal lParam, Len(pDlgTemplate))
        pDlgTemplate.style = pDlgTemplate.style And Not WS_SYSMENU
        Call CopyMemory(ByVal lParam, pDlgTemplate, Len(pDlgTemplate))
        'Call CopyMemory(dwStyle, ByVal lParam, 4) 'pDlgTemplate->style
        'dwStyle = dwStyle And Not WS_SYSMENU
        'Call CopyMemory(ByVal lParam, dwStyle, 4)
      Else 'хотя это вряд ли понадобится
        Call CopyMemory(dwStyle, ByVal (lParam + 12), 4) 'pDlgTemplateEx->style
        dwStyle = dwStyle And Not WS_SYSMENU
        Call CopyMemory(ByVal (lParam + 12), dwStyle, 4)
      End If
    Case PSCB_INITIALIZED
      'способ #2:а вот это работает и на PSH_AEROWIZARD, и на PSH_WIZARD97
      'Debug.Print "PSCB_INITIALIZED"
      If sys_WinVista Then 'ну не дважды же его устанавливать (для PSH_WIZARD97)
        Call SetWindowLong(hwndDlg, GWL_STYLE, GetWindowLong(hwndDlg, GWL_STYLE) And Not WS_SYSMENU)
      End If
    Case Else
  End Select
End Function