Как получить функцию обратного вызова в vb6 с TaskDialogIndirect?

Question

Я использую TaskDialogIndirect в VB6. Он отлично работает, и у меня даже работают ссылки (с включением TDF_ENABLE_HYPERLINKS) в элементе pszFooter TASKDIALOGCONFIG.

Проблема заключается в том, что, хотя курсор превращается в "руку" при наведении на ссылку, я не знаю, как заставить элемент TaskDialogIndirect TASKDIALOGCONFIG.pfCallback указывать на мою пользовательскую функцию, поэтому я может фактически направить пользователя на указанную гиперссылку.

tdi.pszFooter = StrPtr("<a href=" & Chr$(34) & "www.cnn.com" & Chr$(34) & ">www.cnn.com</a>")

Кто-нибудь может мне помочь? Спасибо!

Answer 1

Public Function FnPtrToLong(ByVal lngFnPtr As Long) As Long
    FnPtrToLong = lngFnPtr
End Function