by Karthikeyan (187 Submissions)
Category: Windows API Call/Explanation
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Thu 18th January 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Display change icon dialog using SHChangeIconDialog API
Dim fname As String
Dim index As Long
Dim rval As Long
fname = "C:\windows\explorer.exe"
rval = SHChangeIconDialog(hwnd, fname, 0, index)
If rval Then
MsgBox fname & Chr(13) & "Index = " & index
End If
End
End Sub