VB怎么让文本框单击全选

新建一个工程，实现功能单击Text1框时，Text1中的内容被全选。保存。

另外在增加题目:
1.新建一个工程，在界面上放置一个工具条Toobar1,在工具条上有三个按纽，按下第一个按钮时用MsgBox显示：“第一个按纽被按下”；按下第二个按纽时用MsgBox显示：“第二个按纽被按下”；按下第三个按纽时用MsgBox显示：“第三个按钮被按下”。保存。

2.新建一个工程，文本框text1,使用户输入字母一律转换为大写显示（焦点在最右端）保存。 (右端怎么弄)

3.新建一个工程，在Form1界面创建Form2，Form3两个子菜单的Forms菜单，选择Form2子菜单，以无模式显示Form2,选择Form3子菜单，以有模式显示Form3.保存。

Option Explicit

'全选文本框中文本
Private Sub SelectAll()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
    Text1.SetFocus
End Sub

Private Sub Command1_Click()
    '点击Command1，全选文本
    SelectAll
End Sub

VB让文本框透明 怎么一选定文本框就全选文本框内的内容 在VB中怎么才能让文本框消失 如何让vb的文本框变灰? VB怎样让文本框随窗口变大 在VB中如何让TEXT1里的内容全选 怎么用VB编写一个让文本框里面的内容，每一行开头都加空格？ 怎么能让VB中的TEXT文本框字能输入数字而不能输入字符? VB文本框 VB文本框怎么在开始获得焦点？