Writing and Using EvenLog Class module

hi,

I need to write a class module which will be used in other classes to get the exception if any to the EventLog.

1)The eventLog should also contain if any program errors involved..How can we write it and implement..

2)Lets say I have the following class where I have to use it when exception is throw in function


public class COrders
   Public function GetOrdersForCustomer(ICustomerID as integer) as dataset
             
   Try
      dim id as integer = Mcommand.parameters("@Return_value").value

     Catch Ex as exception
        Throw EX  
   End try
 End function
End class