RE:AYUDA Como obtengo el Icono de una Aplicación??
Aunque normalmente solo visito el foro de Visual Basic, vi tu pregunta y te dire que en www.ambsoftware.com esta la solucion, aqui te la reproduzco:
Extrae el icono asociado a un fichero ejecutable
A través del siguiente ejemplo se mostrará cómo extraer el icono asociado a un fichero ejecutable cualquiera.
Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal Y As Long, ByVal hIcon As Long) As Long
Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" (ByVal hInst As Long, ByVal lpszExeFileName As String, ByVal nIconIndex As Long) As Long
Añada un control PictureBox llamándolo Picture1 en su formulario.
Private Sub Form_Load()
Dim Path As String, strSave As String
Dim returnl As Long, return2 As Long
strSave = String(200, Chr$(0))
Picture1.AutoRedraw = True
'Sustituya C:\windows\regedit.exe por el ejecutable del que quiera extraer su icono.
return1 = ExtractIcon(Me.hWnd, "c:\windows\regedit.exe", 2)
return2 = DrawIcon(Picture1.hdc, 0, 0, return1)
End Sub
Saludos desde Lima