Public Declare Function OpenEvent Lib "kernel32" Alias "OpenEventA" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal lpName As String) As Long
Dim lReturn As Long
Dim strEventName As String
lReturn = OpenEvent(EVENT_ALL_ACCESS, 0, strEventName)
If lReturn <> 0 Then
'Success Call API
End If