Option Explicit
Dim oSysLog, sProps

' *** Create a new SysLog object ***
Set oSysLog = CreateObject("SysLog")

' *** Fetch the objects default values and display them ***
sProps = oSysLog.Source & vbNewLine & _
         oSysLog.Id     & vbNewLine & _
         oSysLog.Type   & vbNewLine & _
         oSysLog.Description
MsgBox sProps

' *** Set the objects properties ***
oSysLog.Source = "MyPerlCtrl"
oSysLog.Id = 1000
oSysLog.Type = "e"
oSysLog.Description = "There's more than one way to do it!!!"

' *** Fetch the objects new values and display them ***
sProps = oSysLog.Source & vbNewLine & _
         oSysLog.Id     & vbNewLine & _
         oSysLog.Type   & vbNewLine & _
         oSysLog.Description
MsgBox sProps

' *** Write an event to the NT Application Log using the new values ***
oSysLog.Write()

' *** Release the object ***
Set oSysLog = Nothing