Winform.MonthCalendar.Size 在 .CalendarDimensions 更新后不更新

如何解决Winform.MonthCalendar.Size 在 .CalendarDimensions 更新后不更新

我有一个简单的 WinForm，它只包含一个 WinForm.MonthCalendar 控件。

考虑以下事项：

Sub New(Optional Title As String = nothing,Optional displayMonths As Integer? = nothing)

    If Title Is nothing Then Title = "Pick a date"
    If displayMonths Is nothing Then displayMonths = 1

    InitializeComponent()
    AdjustMonths(displayMonths.Value)
    Me.Text = Title

End Sub

Private Sub AdjustMonths(Count As Integer)

    Dim CalendarDim As Drawing.Size = New Drawing.Size(1,1)
    Select Case Count
        Case 1
            'Do nothing
        Case 2
            CalendarDim.Height *= 2
        Case 3
            CalendarDim.Height *= 3
        Case 4
            CalendarDim.Height *= 2
            CalendarDim.Width *= 2
        Case 6
            CalendarDim.Width *= 2
            CalendarDim.Height *= 3
        Case 9
            CalendarDim.Height *= 3
            CalendarDim.Width *= 3
        Case 12
            CalendarDim.Height *= 3
            CalendarDim.Width *= 4
        Case Else
            Throw New ArgumentException("Supported values are 1,2,3,4,6,9,and 12.",NameOf(Count))
    End Select
    Me.Monthsdisplayed = Count

    Me.MonthCalendar.CalendarDimensions = CalendarDim
    'Me.Show()
    'Me.Hide()
    Me.ClientSize = Me.MonthCalendar.Size

End Sub

当随后显示 winform 时，除非我取消注释 Me.Show;Me.Hide hack，否则它的大小不正确，显然这远非理想。我认为这是因为除非显示/绘制，否则 Me.MonthCalendar.Size 不会返回正确的大小。知道如何获得正确的值吗？

我尝试了 Me.Performlayout、Me.Refresh、Me.Update，但没有奏效。