Проблема в том, что нет результата=> структ не заполняется не в С++ не в VB6.
делаю так(как в MSDN):
В BV6 (здесь нет прод-я строки т.к. сдесь просто не поместилось 800х600)

hEventLog = OpenEventLog(vbNullString, INeededEvSours)
ReDim lpBuffer(BuffSize1) As EVENTLOGRECORD
IreadNSFromEvL = ReadEventLog(hEventLog, EVENTLOG_FORWARDS_READ, 1, lpBuffer, BuffSize1, pnBytesRead, pnMinNumberOfBytesNeeded)