[VB6, Vista+] Simple Task Dialog

[Schmidt]

Edited: Icon does show when compiled...

Sure - since the (Int)ResourceID is looked up in the (App.)hInstance which is passed
in the appropriate Parameter - and in case of IDE-Mode it is the hInstance of VB6.exe.

1. The question mark icon no longer exists.
This can be worked around if absolutely needed by supplying one's own "question" icon in their resource file.

Either that (when App.hInstance is used further) - but there's also other Resource-Binaries
one can easily retrieve a hInstance from - as for example per LoadLibrary from shell32.dll.

...which then would offer a quite nice Set of System-Icons without having to include them as a
separate Resource (e.g. different QuestionMark-Icons are offered under either 263, 289 or 324 -
one can lookup those IDs for example here: http://www.glennslayden.com/code/win...ll32-dll-icons

For a short Test that worked here, i only had to adjust to the following (in dilettantes original example):

        Static Shell32Instance As Long
        If Shell32Instance = 0 Then Shell32Instance = LoadLibrary(StrPtr("shell32.dll"))
        HResult = TaskDialogAPI(hWndParentForm, _
                                Shell32Instance, _
                                StrPtr(WindowTitle), _
                                StrPtr(MainInstruction), _
                                StrPtr(Content), _
                                Buttons, _
                                Icon, _
                                TaskDialog)

After the small change above - it is enough to switch the formerly passed 101 ResourceID within
the TestIt-function to one of the IDs in the IconID-Range of shell32.dll.

And that will work also in the IDE of course (due to the aforementioned switch to a different hInstance).

Olaf