'get component
Sub ToString As String
#If debug
Dim eName As String = $"${ID}_change"$
If SubExists(Module, eName) = False Then
Log($"The '${eName}' event has not been defined!"$)
End If
eName = $"${ID}_click"$
If SubExists(Module, eName) = False Then
Log($"The '${eName}' event has not been defined!"$)
End If
#end if
If hasBadge Then AddComponent(Badge.ToString)
Return TabItem.ToString
End Sub