Option Explicit
 
Private Declare Function ExtractIcon Lib "shell32.dll" Alias "ExtractIconA" ( _
     ByVal hInst As Long, _
     ByVal lpszExeFileName As String, _
     ByVal nIconIndex As Long) As Long
 
Private Declare Function DrawIcon Lib "user32.dll" ( _
     ByVal hdc As Long, _
     ByVal x As Long, _
     ByVal y As Long, _
     ByVal hIcon As Long) As Long
 
 
Private Sub Command1_Click()
Dim hIcon As Long
Dim retval As Long
hIcon = ExtractIcon(App.hInstance, "C:\test.ico", ByVal 0&)
If hIcon > 1 Then
    retval = DrawIcon(Picture1.hdc, 0, 0, hIcon)
    If retval <> 0 Then
    End If
End If
End Sub