Private Const SEE_MASK_INVOKEIDLIST As Long = &HC&
    Private Const SW_SHOW As Long = 5&
    Private Structure SHELLEXECUTEINFO
        Dim cbSize As Long
        Dim fMask As Long
        Dim hwnd As Long
        Dim lpVerb As String
        Dim lpFile As String
        Dim lpParameters As String
        Dim lpDirectory As String
        Dim nShow As Long
        Dim hInstApp As Long
        Dim lpIDList As Long
        Dim lpClass As String
        Dim hkeyClass As Long
        Dim dwHotKey As Long
        Dim hIcon As Long
        Dim hProcess As Long
    End Structure
 
    Private Declare Function ShellExecuteEx Lib "shell32.dll" (ByRef SEI As _
      SHELLEXECUTEINFO) As Long
    Public Function ShowFilePropertiesDialog(ByVal FileOrDirectory As String) _
    As Boolean
 
        ' -----------------------------------------------------
        'Zeigt den Explorer-Dialog für Datei- oder' Verzeichniseigenschaften an.
        '
        ' FileOrDirectory: Pfad zur Datei oder zum Verzeichnis,
        ' für das der Dialog angezeigt werden
        ' soll. UNC-Netzwerkpfade werden
        ' unterstützt.' 
 
 
        Dim SEI As SHELLEXECUTEINFO
        ' SHELLEXECUTEINFO-Struktur mit den notwendigen  
        ' Werten belegen:  
 
        With SEI
            .cbSize = Len(SEI)
            .nShow = SW_SHOW
            .fMask = SEE_MASK_INVOKEIDLIST
            .lpVerb = "Properties"
            .lpFile = FileOrDirectory
        End With
 
        ' Mittels ShellExecuteEx den Dialog anzeigen:  
 
        ShellExecuteEx(SEI)
        ' War der Aufruf erfolgreich, ist der Parameter  
        ' hInstApp der SHELLEXECUTEINFO-Struktur größer  
        ' als 32:  
 
        ShowFilePropertiesDialog = (SEI.hInstApp > 32)
 
    End Function
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        ShowFilePropertiesDialog("C:")
    End Sub