Private Sub UserForm_Initialize()
With TextBox1
.WordWrap = True
.MultiLine = True
.Text = "文本框是一个灵活的控件,受下列属性的影响:Text、" _
& "MultiLine、WordWrap和AutoSize。" & vbCrLf _
& "Text 包含显示在文本框中的文本。" & vbCrLf _
& "MultiLine 控制文本框是单行还是多行显示文本。" _
& "换行字符用于标识在何处结束一行并开始新的一行。" _
& "如果MultiLine 的值为False,则文本将被截断," _
& "而不会换行。如果文本的长度大于文本框的宽度," _
& "WordWrap允许文本框根据其宽度自动换行。" & vbCrLf _
& "如果不使用WordWrap,当文本框在文本中遇到换行字符时," _
& "开始一个新行。如果关闭WordWrap,TextBox中可以有不能" _
& "完全适合其宽度的文本行。文本框根据该宽度,显示宽度以" _
& "内的文本部分,截断宽度以外的那文本部分。只有当" _
& "MultiLine为True时,WordWrap才起作用。" & vbCrLf _
& "AutoSize 控制是否调节文本框的大小,以便显示所有文本。" _
& "当文本框使用AutoSize 时,文本框的宽度按照文本框中的" _
& "文字量以及显示该文本的字体大小收缩或扩大。"
End With
End Sub