<DllImport("shell32.dll", CharSet:=CharSet.Unicode)> _
Private Shared Function PickIconDlg(ByVal hwndOwner As IntPtr, ByVal lpstrFile _
As String, ByVal nMaxFile As Integer, ByRef lpdwIconIndex As Integer) As Integer
End Function

Dim iconfile As String = IO.Path.Combine(Environment.GetFolderPath( _
  Environment.SpecialFolder.System), "shell32.dll")
Dim iconindex As Integer = 4
Dim result As Integer = PickIconDlg(Me.Handle, iconfile, iconfile.Length, _
  iconindex)

Sprache: VB.NET 4.0
Entwicklungsumgebung: VS 2010
Betriebssystem: Windows 7