前提：画面得放一个隐藏的Label,并且该隐藏Label的【AutoSize】属性设置为【TRUE】。
 
调用方法：
 SetFontSize(Me.lbl13, Me.lblArari, 152, 22, “” & Format(result, “###,##0”))
 参数说明：lbl13 --画面隐藏Label。
 lblArari --要改变字体大小的目标Label。
 152 --要改变字体大小的目标Label的最大宽度。
 22 --要改变字体大小的目标Label的最大字体大小。
 “” & Format(result, “###,##0”) ----要改变字体大小的目标Label的text
 
Private Sub SetFontSize(ByVal lblCompare As Label,
                        ByVal lblResult As Label,
                        ByVal lblWidth As Single,
                        ByVal lblFontSize As Single,
                        ByVal txtResult As String)
    Dim lblFont As Font = New Font(lblResult.Font.FontFamily, lblFontSize, lblResult.Font.Style)
    lblCompare.Text = txtResult

    If lblCompare.Width <= lblResult.Width Then
        lblResult.Width = lblWidth
        lblResult.Font = lblFont
        lblResult.Text = txtResult
    Else
        Dim iChangeFontSize As Single = lblFontSize
        SetFontSizeChange(iChangeFontSize, lblCompare, lblResult, lblWidth, lblFontSize, txtResult)
    End If
End Sub

Private Function SetFontSizeChange(ByRef iChangeFontSize As Single,
                                   ByVal lblCompare As Label,
                                   ByVal lblResult As Label,
                                   ByVal lblWidth As Single,
                                   ByVal lblFontSize As Single,
                                   ByVal txtResult As String) As Boolean

    Dim lblFont As Font = New Font(lblResult.Font.FontFamily, iChangeFontSize, lblResult.Font.Style)

    If iChangeFontSize < 1 OrElse iChangeFontSize - 0.25 < 1 Then
        lblResult.Font = lblFont
        lblResult.Text = txtResult
        Return True
    End If

    iChangeFontSize += -0.25
    lblCompare.Font = lblFont

    If lblCompare.Width > lblResult.Width Then
        If SetFontSizeChange(iChangeFontSize, lblCompare, lblResult, lblWidth, lblFontSize, txtResult) = True Then
            Return True
        End If
    End If
    lblResult.Font = lblFont
    lblResult.Text = txtResult
    lblCompare.Font = New Font(lblResult.Font.FontFamily, lblFontSize, lblResult.Font.Style)
    Return True
End Function

        '==========================改变字体
        Dim myFont As System.Drawing.Font

        Dim strName As String = ListBox1.Text
        Dim myFontFamily As System.Drawing.FontFamily
        myFontFamily = New FontFamily(strName)

        Dim myFontStyle As FontStyle
        Dim bolBold = CheckBox1.Checked
        If bolBold Then
            myFontStyle = myFontStyle Or FontStyle.Bold
        End If

        Dim bolItdic = CheckBox2.Checked
        If bolItdic Then
            myFontStyle = myFontStyle Or FontStyle.Italic
        End If

        Dim bolUnderline = CheckBox3.Checked
        If bolUnderline Then
            myFontStyle = myFontStyle Or FontStyle.Underline
        End If

        Dim bolStrikeout = CheckBox4.Checked
        If bolStrikeout Then
            myFontStyle = myFontStyle Or FontStyle.Strikeout
        End If

        Dim sngSize = ComboBox11.Text
        Dim myColor As Color

        myFont = New System.Drawing.Font(myFontFamily, sngSize, myFontStyle, System.Drawing.GraphicsUnit.Point)
        Label69.Font = myFont
        myColor = Label77.BackColor
        Label69.ForeColor = myColor
 

  

 
在Vb中如text和label控件是没有垂直居中功能的。
 
但是可以变通就是给文字加空行。
 
下面的是从百度贴吧上面引用来的：
 
但是他并没有说明要将text的mutiline属性设置为true，否则是不行的。
 
'加一个 Text1 一个 Command1
 
Dim aa As String, i As Integer, jj As Integer, maxline As Integer, LineCnt As Long
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Const EM_GETLINECOUNT = &HBA
 
Private Sub Form_Load()
 
'窗体与Command1居中
 
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
 
Command1.Move (Me.Width - Command1.Width) \ 2, Text1.Height + Text1.Top + 200
 
Command1.Caption = "居中显示"
 
Text1.Alignment = 2 'TextBox 水平居中显示
 
aa = "Attn:楼主"
 
aa = aa & Chr(13) & Chr(10)
 
aa = aa & "呵呵你的问题都好奇怪,但也让我学了不少!"
 
aa = aa & Chr(13) & Chr(10)
 
aa = aa & "我也想不出其它的好方法"
 
aa = aa & Chr(13) & Chr(10)
 
aa = aa & "你认为这样行吗？"
 
Text1.Text = aa
 
End Sub
 
Private Sub Command1_Click()
 
LineCnt = TextBoxLineCnt(Text1)
 
'每增加一行加上180,当然是以默认的字体大小而言
 
maxline = Text1.Height \ 180 '计算textbox能装下几行
 
jj = (maxline - LineCnt) \ 2 '垂直居中,(textbox总行数-Text1的总行数)整除2
 
For i = 1 To jj '装上几行空白
 
Text1.Text = Chr(13) & Chr(10) & Text1.Text
 
Next i
 
MsgBox "总共有" & CStr(LineCnt) & "行文字,看看垂直居中了吗？"
 
End Sub
 
Public Function TextBoxLineCnt(ctl As TextBox) As Long '计算总行数的函数
 
TextBoxLineCnt = SendMessage(ctl.hwnd, EM_GETLINECOUNT, 0, 0)
 
End Function

 
 
 bottomS = @"注意:\n\n1.所有所有;\n\n2.标余额;\n\n3.不可退款。";
 
 NSMutableAttributedString *noteStr = [[NSMutableAttributedStringalloc] initWithString:bottomS];
 
     // 需要改变的第一个文字的位置
 
     NSUInteger firstLoc = [[noteStrstring] rangeOfString:@"3"].location;
 
     // 需要改变的最后一个文字的位置
 
     NSUInteger secondLoc = [[noteStrstring] rangeOfString:@"。"].location+1;
 
     // 需要改变的区间
 
     NSRange range =  NSMakeRange(firstLoc, secondLoc - firstLoc);
 
     // 改变颜色
 
     [noteStr addAttribute:NSForegroundColorAttributeNamevalue:[UIColorredColor] range:range];
 
     // 改变字体大小及类型
 
     //    [noteStr addAttribute:NSFontAttributeName value:[UIFont fontWithName:@"Helvetica-BoldOblique" size:27] range:range];
 
     // 为label添加Attributed
 
     [self.bottomTextsetAttributedText:noteStr];