点击下载此附件

图   示:

'更改文本框的排列方式
Private Sub cmd_排列_Click()
'对当前的文本框的排列方式取反
    txt_排列.Vertical = Not txt_排列.Vertical
    '根据取反后文本的排列方式更改按钮的标题
    If txt_排列.Vertical = True Then
        cmd_排列.Caption = "横排"
    Else
        cmd_排列.Caption = "竖排"
    End If
End Sub

Private Sub Form_Current()
    Me.txt_排列 = "离离原上草，一岁一枯荣。野火烧不尽，春风吹又生。"
End Sub