SHChangeIconDialog

[JumpyNET]

Does any one know how I can get this work? It works right when I pick the icon from the default shell32.dll, but if I pick it from an exe or some other file I lose the "," and the index and sometimes some of the filename as well. I think some of the problems are caused by Len(FileName), but dont know how to fix it. And the declarations could also be wrong.

    Private Declare Unicode Function SHChangeIconDialogW Lib "shell32" Alias "PickIconDlg" (ByVal hOwner As IntPtr, ByVal szFilename As String, ByVal Reserved As Integer, ByRef lpIconIndex As Integer) As Integer
    Private Declare Ansi Function SHChangeIconDialogA Lib "shell32" Alias "PickIconDlg" (ByVal hOwner As IntPtr, ByVal szFilename As String, ByVal Reserved As Integer, ByRef lpIconIndex As Integer) As Integer


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim FileName As String = "%SystemRoot%\system32\shell32.dll"
        Dim Index As Integer = 116
        Dim Retval As Integer

        If System.Environment.OSVersion.Platform = PlatformID.Win32NT Then
            Retval = SHChangeIconDialogW(Me.Handle, FileName, Len(FileName) + 1, Index)
        Else
            Retval = SHChangeIconDialogA(Me.Handle, FileName, Len(FileName) + 1, Index)
        End If

        Me.Text = FileName & "," & Index

    End Sub

Im using VB 2005 Express Beta 2.

PS: Why the vb tags remove all the backslashes??