lable 크기에 맞게 사이즈 자동 조절

  Public Sub auto_fontSize_label(label As Label, ByVal text As String)
        label.Text = text

        Dim fontSize As Integer = label.Font.Size
        Do While (label.PreferredWidth < label.Width Or label.PreferredHeight < label.Height)
            fontSize += 1
            label.Font = New Font("맑은 고딕", fontSize)
        Loop

        Do While (label.PreferredWidth > label.Width Or label.PreferredHeight > label.Height)
            fontSize -= 1
            label.Font = New Font("맑은 고딕", fontSize)
        Loop

    End Sub