代码如下：
Private Sub Text1_GotFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
End Sub
CommandButton控件
CommandButton控件接受用户的命令。
属性：
Caption 表示按钮所显示的内容
例：Command1.Caption="&OK"
ListX.AddItem(Item As String)
RemoveItem 删除第i项
ListX.RemoveItem(i As Integer)
事件：
Click 当点击列表框中的一项数据时发生。
ComboBox控件
ComboBox控件与ListBox基本相同，它的优点在于占用的面积小，除了可以在选项中选择外还可以输入其它数据。它的缺点是不能多选择。
=False 关闭。
Intertval 表示触发Timer事件的间隔时间以毫秒为单位，即：1000＝1秒。
事件：
Timer当计时器计时到间隔时间时发生。
DriveListBox控件
DriveListBox控件提供一个驱动器列表。
属性：
Drive表示当前选择的驱动器盘符。
事件：
Change当驱动器选择发生变化时发生。
Open对话框 和 Save对话框
属性：
Filename表示选择的文件名（含路径）。
Filter决定列什么样的文件。
格式：“说明|过滤|说明|过滤|...”
例：Filter="Text|*.txt|Picture|*.bmp;*.gif"
方法：
ShowOpen弹出Open对话框。
ShowSave弹出Save对话框。
Label控件
Label 控件主要用于在窗体中显示提示信息，常与Text控件一起使用。
属性：
Caption 表示标签的内容。
例：Label1.Caption="N&ame:"
控件在窗体中显示Name:,&号跟的字母是快捷键字母，即当我们按下Alt+A时，Label1的Click事件将会发生。
这种快捷键定义方法对于菜单和许多其它控件同样适用。
例：打开一个正文文件，把文件名赋给变量fn。
Dim fn As String
CDlg1.Filter="Text|*.txt"
CDlg1.ShowOpen
fn=CDlg1.Filename
Color对话框
属性：
Color选择的颜色。
方法：
ShowColor弹出Color对话框。
例：修改标签控件的Label1颜色。
ListCount 表示当前列表框中总数据项数。
ListIndex 表示当前操作项下标，第1项＝0。
List(i) 表示第i项表项内容。
MultiSelect 表示是否允许多选择。
Selected(i) 表示第i项是否被选中。
SelCount 表示被选中的项数。dItem 向列表框增加一项数据。
事件：
Click 当点击或按下快捷键时发生。
CheckBox控件
CheckBox控件检查某个选项是否被选中。
属性：
Caption 表示检查框所提示的内容。
例：Check1.Caption="Windows &98":Check2.Caption="Windows &NT"
Value 表示检查框是否被选中。
Frame控件
Frame控件主要用于为OptionButton控件分组。
属性：
Caption 表示分组所提示的内容。
例：Frame1.Caption="性别":Frame2.Caption="民族"
ListBox控件
ListBox控件用于在一组列表中选择其中的一项或多项。
属性：
Text 表示当前操作项内容。
Font 表示控件的字体。
ForeColor 表示控件的当前颜色。
Enabled 表示控件是否使能。
=True 使能。
=False 禁止(控件显示为灰色)。
Visible 表示控件是否可见
=True 可见。
=False 不可见。
Top,Left,Width,Height 表示控件在窗体中的位置和尺寸。
事件：
KeyPress 当在控件上按下按键时发生。
Private Sub Text1_KeyPress(KeyAscii As Integer)
End Sub
KeyAscii 表示用户按键的ASCII码，如果在事件中将它改为0，则认为没有按键。
例：编写只允许输入数字的Text控件。
Private Sub Text1_KeyPress(KeyAscii As Integer)
DirListBox控件
DirListBox控件提供一个目录列表。
属性：
Path表示当前目录的路径。
事件：
Change当目录选择发生变化时发生。
FileListBox控件
FileListBox控件提供一个文件列表。
属性：
Path表示当前文件列表所在的路径。
Filename表示选择的文件名（不含路径）。
CDlg1.Color=Label1.ForeColor
CDlg1.ShowColor
Label1.ForeColor=CDlg1.Color
Font对话框
属性：
Flags决定字体的集合。
FontBold是否加粗。
FontItalic是否斜体。
FontName字体名称。
FontSize字体大小。
方法：
将Text1控件接收用户输入的数据通过Label1控件显示出来。
SelStart 表示用户选中一段文字的起始位置。第一个字符位置为0。
SelLength 表示用户选中文字的长度。
SelText 表示用户选中文字的内容。
例：0123456789
这时：SelStart=5,SelLength=4,SelText="5678"
ShowFont弹出Font对话框。
例：修改标签控件Label1的字体。
CDlg1.FontName=Label1.FontName
CDlg1.FontSize=Label1.FontSize
CDlg1.Flags=cdlCFScreenFonts
CDlg1.ShowFont
Label1.FontBold=CDlg1.FontBold
If KeyAscii<Asc("0") Or KeyAscii>Asc("9") Then
KeyAscii=0
End If
End Sub
Change 当控件内容改变时发生。
LostFoucus 当控件失去输入交点时发生。
GotFoucus 当控件获得输入交点时发生。
通常我们在Text控件获得输入交点时全选它的内容，方便用户直接修改数据。
Pattern决定列什么样的文件。
例：*.* 列所有文件。*.bmp 列BMP图片文件。
Click当点击列表框的一项数据时发生。
CommandDialog控件
CommandDialog控件包括了Windows操作系统提供的6种公用对话框。(仅介绍前四种对话框)
Open 、Save 、Color 、Font 、Printer 、Help
[注]：LoadPicture支持Bmp、Jpg、Gif、等多种格式图片文件。
Stretch 显示图片的方式。
=True 以控件的尺寸显示图片。
=False 以图片的原尺寸显示图片。
Timer控件
Timer控件以固定间隔时间名触发它的Timer事件。
属性：
Enabled 表示是否起动计时器。
=True 启动。
MultiLine 表示是否是多行输入。
=True 是多行输入。
=False 不是多行输入(缺省) 。
ScrollBars 多行情况下是否需要滚动条。
=0 没有。
=1 有水平。
=2 有垂直。
=3 水平、垂直都有。
Password 表示口令字符。Text属性返回用户输入数据，屏幕上显示该字符。
方法：
SetFocus 使当前控件获得输入交点。
Label1.FontItalic=CDlg1.FontItalic
Label1.FontName=CDlg1.FontName
Label1.FontSize=CDlg1.FontSize
=0 未选中。
=1 选中。
例：Check1.Value=1:Check2.Value=0
事件：
Click 当点击或按下快捷键时发生。
OptionButton控件
OptionButton控件检查一个选项是否被选中，它与CheckBox的区别是：
CheckBox 是多选多项。
OptionButton 是多选一项。
属性：
Text 存放从选项中选择的数据或用户输入的数据。
其它方法与事件和ListBox相同。
Image控件
Image控件用于显示一张图片。
属性：
Picture 存放图片的数据。
通常我们使用LoadPicture函数读入一张图片。
例：ImageX.Picture=LoadPicture("C:\1.bmp")
属性：
Caption 表示检查框所提示的内容。
例：Option1.Caption="男":Option2.Caption="女"
