Public Class LabelEx Inherits Label Public Sub New() MyBase.New() ' 初期値を設定 Me.AutoEllipsis = True ' 表示しきれないテキストを「...」で示して、ツールチップ表示する End Sub ' 既定値を設定 (ほんとうはOverridesを使いたいが、継承不可に設定…