前提：画面得放一个隐藏的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

VB.net 中，TextBox 控件如何显示提示文字？(密码输入框) 
 用灰色显示“请输入密码”，当鼠标点击的时候灰色的字就消失。当输入框中没有内容并且焦点离开输入框的时候又恢复提示文字。
 
 
 
这样的效果经常见于网页当中，如果想把它放进Windows窗体中，请往下看
 
 
 
其实是利用了Windows Vista中的新API，使用 SendMessage 函数向目标文本框发送EM_SETCUEBANNER 消息
 
先声明SendMessage API：
 

    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _  
                                (ByVal hwnd As IntPtr, _  
                                 ByVal wMsg As Integer, _  
                                 ByVal wParam As IntPtr, _  
                                 ByVal lParam As Byte()) _  
                                 As Integer  

 然后是
EM_SETCUEBANNER 的定义

 
    Public Const EM_SETCUEBANNER As Integer = &H1501  

 
 
其中 As Integer 可选
 
窗体设计如下：
 
单击"SetText”按钮，设置提示文本，单击“Focus”按钮，将焦点从文本框上移除。
 
下面是SetText按钮的代码：
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
        'Set TipText  
        Dim text = InputBox("Please Input TipText", "Input TipText", "This is a Tip Text")  
        'SendMessage API  
        SendMessage(TextBox1.Handle, _  
                             EM_SETCUEBANNER, _  
                             IntPtr.Zero, _  
                             System.Text.Encoding.Unicode.GetBytes(text))  
    End Sub  

 
<span><span style="font-family:Verdana;color:#000000;">程序运行后，单击SetText按钮，输入提示信息。TextBox会在失去焦点时显示提示语言，得到焦点时提示语消失。</span></span>

题目来源：大工慕课 链接 
 原题：Visual Basic程序设计教程（第二版）龚沛曾主编，高等教育出版社 实验4-9 
 作者：Caleb Sung
 
题目要求
 
任意改变文本的字号。要求利用滚动条和标签控件实现对标签字体大小的任意改变，如图所示。 
 
 
提示
 
将滚动条的Min、Max分别设置为字号的最小值和最大值
当拖动滑块时，字体取原来值，字号跟着变化。
 
参考代码
 
Private Sub HScroll1_Change()
    n = HScroll1.Value
    Label1.FontSize = n
    Label1.Caption = n & "号字"
End Sub

 
 
VB2008中，TextBox 控件如何显示提示文字？(密码输入框) 
用灰色显示“请输入密码”，当鼠标点击的时候灰色的字就消失。当输入框中没有内容并且焦点离开输入框的时候又恢复提示文字。
 
 
 
这样的效果经常见于网页当中，如果想把它放进Windows窗体中，请往下看
 
语言：Visual Basic 2005/2008
 
 
 
其实是利用了Windows Vista中的新API，使用 SendMessage 函数向目标文本框发送EM_SETCUEBANNER 消息
 
先声明SendMessage API：
 
    Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                                (ByVal hwnd As IntPtr, _
                                 ByVal wMsg As Integer, _
                                 ByVal wParam As IntPtr, _
                                 ByVal lParam As Byte()) _
                                 As Integer 
 
 
然后是EM_SETCUEBANNER 的定义
 
Public Const EM_SETCUEBANNER As Integer = &H1501 
 
其中 As Integer 可选
 
 
 
窗体设计如下：
 
 
 
 
单击"SetText”按钮，设置提示文本，单击“Focus”按钮，将焦点从文本框上移除。
 
下面是SetText按钮的代码：
 
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'Set TipText
    Dim text = InputBox("Please Input TipText", "Input TipText", "This is a Tip Text")
    'SendMessage API
    SendMessage(TextBox1.Handle, _
                         EM_SETCUEBANNER, _
                         IntPtr.Zero, _
                         System.Text.Encoding.Unicode.GetBytes(text))
End Sub 
 
程序运行后，单击SetText按钮，输入提示信息。TextBox会在失去焦点时显示提示语言，得到焦点时提示语消失。
 
 
 
 
示例代码下载地址：
 
点击下载