<Runtime.InteropServices.DllImport("shell32")> Public Shared Function _
      PickIconDlg(ByVal ptrHandle As IntPtr, ByRef sFile As String, ByVal _
      buffer As Int32, ByRef iIndex As Int32) As Int32
    End Function
    Const MAX_PATH As Int32 = 256
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim file As String = "C:\windows\system32\shell32.dll"
        Dim index As Int32 = 1
        Dim retval As Int32 = PickIconDlg(Me.Handle, file, MAX_PATH, index)
        Debug.Print(file)
        Debug.Print(index)
        Debug.Print(retval)
    End Sub