可以參考下面的程式碼：
Private Sub Form_Load()
Label1.Font = "楷體" "字型改為楷體
Label1.FontSize = 50 "字型大小
Label1.ForeColor = vbRed "字型顏色改為紅色
Label1.AutoSize = True "label隨文字內容自動改變大小
End Sub
擴充套件資料：
VB參考函式
Date 函式： 返回當前系統日期。
DateAdd 函式： 返回加上了指定的時間間隔的日期。
DateSerial 函式： 返回指定年月日的日期子型別的變體 。
DateValue 函式： 返回日期子型別的變體 。
Day 函式： 返回日期，取值範圍為 1 至 31。
Description 屬性： 返回或者設定說明某個錯誤的字串。
可以參考下面的程式碼：
Private Sub Form_Load()
Label1.Font = "楷體" "字型改為楷體
Label1.FontSize = 50 "字型大小
Label1.ForeColor = vbRed "字型顏色改為紅色
Label1.AutoSize = True "label隨文字內容自動改變大小
End Sub
擴充套件資料：
VB參考函式
Date 函式： 返回當前系統日期。
DateAdd 函式： 返回加上了指定的時間間隔的日期。
DateSerial 函式： 返回指定年月日的日期子型別的變體 。
DateValue 函式： 返回日期子型別的變體 。
Day 函式： 返回日期，取值範圍為 1 至 31。
Description 屬性： 返回或者設定說明某個錯誤的字串。