RawExpFileFullName=D:\Ablage\Excel VBA\DevAndTest\Common-VBA-Execution-Trace-Service\source\clsTrc.cls RawRevisionNumber=2023-06-17.005 RawRevisionNumber=2023-06-21.007 [fMsg] DueModificationWarning=1 KindOfComponent=used RawRevisionNumber=2023-05-18.001 [mCompManClient] DueModificationWarning=1 Kin...
If MsgSectLbl.FontName <> vbNullString Then .Name = MsgSectLbl.FontName Else .Name = DFLT_LBL_MONOSPACED_FONT_NAME If MsgSectLbl.FontSize <> 0 Then .Size = MsgSectLbl.FontSize Else .Size = DFLT_LBL_MONOSPACED_FONT_SIZE Else If MsgSectLbl.FontName <> vbNullString Then .Name = Ms...
' Const PROC = "procedure-name" ' On Error Goto eh ' ... ' xt: Exit Sub/Function/Property ' ' eh: Select Case ErrMsg(ErrSrc(PROC) ' Case vbYes: Stop: Resume ' Case vbNo: Resume Next ' Case Else: Goto xt ' End Select ' End Sub/Function/Property ' ' The above may appear...