Esempio Procedura InitProcWatch per inizializzazione classe ProcBug

Public Sub InitProcWatch()
  If pBug Is Nothing Then Set pBug = New ProcBug
  With pBug
    .Enabled = True
    .LogOnMsgBox = False
    .LogOnFile = False
    .LogOnReport = True
    .SupportFax = "+xx xxx xxxxxxxx"
    .SupportMail = "support@your_domain.com"
    Call .Init(App.EXEName, App.Major, App.Minor, App.Revision, App.Path, [Exe Standard])
  End With
End Sub