VB to Create Time Record in AutoCAD 2006

[bill.98542]

Can anyone help me to create a VB Function that will basically automatically calculate the time that I worked in a drawing by certain criteria such as Designing, Cleanup, Notes, etc., I am very inexperienced in VB but can follow directions. I imagine that this may not be enough info in the beginning.Please let me know what you require to help.
Thanks

[sanjay_yallure]

Use the following code with something which will filter the type of command i.e command is used for drawing(line, cir etc) or for cleaning( delete purge etc) or for annotation.

Dim oTimeStart
Dim oTimeEnd
Dim oTotalTime
Private Sub AcadDocument_BeginCommand(ByVal CommandName As String)
oTimeStart = Timer
End Sub

Private Sub AcadDocument_BeginLisp(ByVal FirstLine As String)
oTimeStart = Timer
End Sub

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
oTimeEnd = Timer
oTotalTime = oTotalTime + (oTimeEnd - oTimeStart)
UserForm1.Caption = Int(oTotalTime)
End Sub

Private Sub AcadDocument_EndLisp()
oTimeEnd = Timer
oTotalTime = oTotalTime + (oTimeEnd - oTimeStart)
UserForm1.Caption = Int(oTotalTime)
End Sub

Regards,

Sanjay Yallure