Private Declare Function ExtractAssociatedIconA Lib "shell32.dll" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long

Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long

Private Declare Function DestroyIcon Lib "user32" (ByVal hIcon As Long) As Long

Private Function ExtractAssociatedIcon(Filename, IconIndex As Long)

   ExtractAssociatedIcon = ExtractAssociatedIconA(App.hInstance, Filename, IconIndex)

End Function

Private Sub Command1_Click()

Dim hIcon As Long

hIcon = ExtractAssociatedIcon("c:\program files\winamp\winamp.exe", 2)

DrawIcon Me.hdc, 0, 0, hIcon

DestroyIcon hIcon

End Sub