实现RadioButton自动换行

  

 

  '如果一行显示不完，则多行显示
    Private Sub rbKey0TextReload(ByVal rbKey0 As RadioButton)
        Dim textSize As Size = TextRenderer.MeasureText(rbKey0.Text, rbKeyA.Font) '文字的大小
        Dim radiobuttonSize As Size = rbKey0.Size '选框的大小
        Dim hang As Integer = 0 '要显示几行
        hang = textSize.Width \ radiobuttonSize.Width
        If textSize.Width Mod radiobuttonSize.Width > 0 Then
            hang = hang + 1
        End If
        rbKey0.Size = New Size(radiobuttonSize.Width, hang * 21)
    End Sub