Public hWnd As Long
    Public sfilename = "C:\INSTALL.txt"
 
    Private Declare Function ShellExecuteEx Lib "shell32.dll" (ByVal _
      LPSHELLEXECUTEINFO As SHELLEXECUTEINFO) As Long
 
    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 Const SEE_MASK_FLAG_NO_UI = &H400
    Private Const SEE_MASK_INVOKEIDLIST = &HC
    Private Const SEE_MASK_NOCLOSEPROCESS = &H40
 
    Private Sub ShowFileInfoDlg(ByVal hWnd As Long, ByVal sFilename As String) _
      ' Datei-Eigenschaften Dialog anzeigen
 
        Dim FILEINFO As SHELLEXECUTEINFO
 
        With FILEINFO
            .cbSize = Len(FILEINFO)
            .fMask = SEE_MASK_FLAG_NO_UI Or _
              SEE_MASK_INVOKEIDLIST Or _
              SEE_MASK_NOCLOSEPROCESS
            .hWnd = hWnd
            .lpVerb = "properties"
            .lpFile = sFilename
        End With
 
        Call ShellExecuteEx(FILEINFO)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
 
        ShowFileInfoDlg(hWnd, sfilename)
 
    End Sub