Esempio Procedura InitProcWatch per inizializzazione classe ProcStac

Public Sub InitProcWatch()
  If pStack Is Nothing Then Set pStack = New ProcStack
  With pStack
    .Enabled = True
    .LogOnFile = False
    Call .Init(App.EXEName, App.Major, App.Minor, _
      App.Revision, App.Path, [Exe Standard])
  End With
End Sub