Private Type SHELLEXECUTEINFO    cbSize       As Long    fMask        As Long    hwnd         As Long    lpVerb       As String    lpFile       As String    lpParameters As String    lpDirectory  As String    nShow        As Long    hInstApp     As Long    lpIDList     As Long    lpClass      As String    hkeyClass    As Long    dwHotKey     As Long    hIcon        As Long    hProcess     As LongEnd TypePrivate Declare Function ShellExecuteEX Lib "shell32.dll" Alias _    "ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As LongConst SEE_MASK_INVOKEIDLIST = &HCConst SEE_MASK_NOCLOSEPROCESS = &H40Const SEE_MASK_FLAG_NO_UI = &H400' Display the property page associated to a fileSub ShowFileProperties(sFile As String)    Dim SEI As SHELLEXECUTEINFO    ' Fill the SHELLEXECUTEINFO structure    With SEI        .cbSize = Len(SEI)        .fMask = SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or _            SEE_MASK_FLAG_NO_UI        .lpVerb = "properties"        .lpFile = sFile    End With    ' execute    ShellExecuteEX SEIEnd Sub