Imports GrapeCity.Win.Containers

Public Class FixedGcContainer
　　Inherits GcContainer

　　Protected Overrides Sub ScaleControl(factor As SizeF, specified As BoundsSpecified)
　　　　MyBase.ScaleControl(factor, specified)
　　　　Dim form = Me.FindForm()
　　　　If form Is Nothing Then Return
　　　　If form.AutoScaleMode = AutoScaleMode.None Then Return

　　　　Dim scale As Single = 1
　　　　If form.AutoScaleMode = AutoScaleMode.Dpi Then
　　　　　　scale = form.CurrentAutoScaleDimensions.Width / 96
　　　　ElseIf form.AutoScaleMode = AutoScaleMode.Font Then
　　　　　　scale = factor.Width
　　　　End If
　　　　If scale = 1 Then Return
　　　　For Each c As Control In Me.Controls
　　　　　　Dim cf As CaptionFormat = Me.GetCaptionFormat(c)
　　　　　　If Not cf Is Nothing Then
　　　　　　　　cf.Size = cf.Size * scale
　　　　　　End If
　　　　Next
　　End Sub
End Class

using GrapeCity.Win.Containers;

public class FixedGcContainer : GcContainer
{
　　protected override void ScaleControl(SizeF factor, BoundsSpecified specified)
　　{
　　　　base.ScaleControl(factor, specified);
　　　　var form = this.FindForm();
　　　　if (form == null) return;
　　　　if (form.AutoScaleMode == AutoScaleMode.None) return;

　　　　float scale = 1;
　　　　if (form.AutoScaleMode == AutoScaleMode.Dpi)
　　　　{
　　　　　　scale = form.CurrentAutoScaleDimensions.Width / 96;
　　　　}
　　　　else if (form.AutoScaleMode == AutoScaleMode.Font)
　　　　{
　　　　　　scale = factor.Width;
　　　　}

　　　　if (scale == 1) return;

　　　　foreach (Control c in this.Controls)
　　　　{
　　　　　　CaptionFormat cf = this.GetCaptionFormat(c);
　　　　　　if (cf != null)
　　　　　　{
　　　　　　　　cf.Size = cf.Size * (int)scale;
　　　　　　}
　　　　}
　　}
}