Public Declare Sub OleCreatePictureIndirect Lib "oleaut32.dll" ( _
       ByRef lpPictDesc As PictDesc, _
       ByRef riid As Guid, _
       ByVal fOwn As Long, _
       ByRef lplpvObj As StdPicture)
 
Public Declare Function DestroyIcon Lib "user32" _
   (ByVal hIcon As Long) As Long
 
Public Declare Function ExtractIcon Lib "shell32.dll" _
    Alias "ExtractIconA" _
    (ByVal hInst As Long, _
    ByVal lpszExeFileName As String, _
    ByVal nIconIndex As Long) As Long
 
Public Type PictDesc
   cbSizeofStruct As Long
   picType As Long
   hImage As Long
   xExt As Long
   yExt As Long
End Type
Public Type Guid
   Data1 As Long
   Data2 As Integer
   Data3 As Integer
   Data4(0 To 7) As Byte
End Type
Public Function ConvertIconHandle(hIcon As Long) As StdPicture
 
   Dim iid As Guid
   Dim icondesc As PictDesc
   Dim icn As StdPicture
 
   iid.Data1 = &H7BF80980
   iid.Data2 = &HBF32
   iid.Data3 = &H101A
   iid.Data4(0) = &H8B
   iid.Data4(1) = &HBB
   iid.Data4(2) = &H0
   iid.Data4(3) = &HAA
   iid.Data4(4) = &H0
   iid.Data4(5) = &H30
   iid.Data4(6) = &HC
   iid.Data4(7) = &HAB
 
   OleCreatePictureIndirect icondesc, iid, False, icn
 
   Set ConvertIconHandle = icn
 
End Function
 
Private Sub Form_Load()
 
    Dim icn As StdPicture
    Dim hIcon As Long
    Dim strPath As String
    Dim ndxIcon As Integer
 
    ndxIcon = 2
 
    strPath = "C:\WINDOWS\System32\Shell32.dll"
 
    hIcon = ExtractIcon(App.hInstance, strPath, ndxIcon)
 
    Set icn = ConvertIconHandle(hIcon)
 
    Set Me.Icon = icn
 
    DestroyIcon hIcon
 
End Sub

http://www.joe.cx.la | http://www.joe.ch.tt