The code below will not work on Vista 64bit?

[yxq]

Hello,
The code below can popup the property dialog of a file, it works well on XP,
Vista 32bit, but it will not work on Vista 64bit, how to correct it? i have
tried to change integer to intptr, but not work yet, thank you.

//////////////////////////////////////////////////////
<System.Runtime .InteropService s.StructLayout( System.Runtime. InteropServices .LayoutKind.Seq uential)>
Public Class SHELLEXECUTEINF O
Public cbSize As Integer
Public fMask As Integer
Public hwnd As Integer
<System.Runtime .InteropService s.MarshalAs(Sys tem.Runtime.Int eropServices.Un managedType.LPW Str),
Microsoft.Visua lBasic.VBFixedS tring(255)Publi c lpVerb As String = ""
<System.Runtime .InteropService s.MarshalAs(Sys tem.Runtime.Int eropServices.Un managedType.LPW Str),
Microsoft.Visua lBasic.VBFixedS tring(255)Publi c lpFile As String = ""
<System.Runtime .InteropService s.MarshalAs(Sys tem.Runtime.Int eropServices.Un managedType.LPW Str),
Microsoft.Visua lBasic.VBFixedS tring(255)Publi c lpParameters As String = ""
<System.Runtime .InteropService s.MarshalAs(Sys tem.Runtime.Int eropServices.Un managedType.LPW Str),
Microsoft.Visua lBasic.VBFixedS tring(255)Publi c lpDirectory As String = ""
Public nShow As Integer
Public hInstApp As Integer
Public lpIDList As Integer
Public lpClass As String
Public hkeyClass As Integer
Public dwHotKey As Integer
Public hIcon As Integer
Public hProcess As Integer

Private Const SW_SHOW As Integer = 5
Private Const SEE_MASK_INVOKE IDLIST As Integer = &HC
Private Declare Auto Function ShellExecuteEX Lib "shell32.dl l" Alias
"ShellExecuteEx " (ByVal SEI As SHELLEXECUTEINF O) As Integer

Public Shared Sub ShowPropertiesD ialog(ByVal Path As String)
If System.IO.File. Exists(Path) Or System.IO.Direc tory.Exists(Pat h)
Then
Dim shInfo As New SHELLEXECUTEINF O
shInfo.cbSize =
System.Runtime. InteropServices .Marshal.SizeOf (GetType(SHELLE XECUTEINFO))
shInfo.lpFile = Path
shInfo.nShow = SW_SHOW
shInfo.fMask = SEE_MASK_INVOKE IDLIST
shInfo.lpVerb = "properties "
ShellExecuteEX( shInfo)
End If
End Sub
End Class