然后双击窗体，在弹出的代码窗口中找到窗体Form_Load()事件，并且在其中添加下列程序的初始化代码如下：

Private Sub Form_Load()

    Dim I As Integer

    '声明一个整型变量.

    For I = 0 To Screen.FontCount - 1

        List1.AddItem Screen.Fonts(I)

        ' 填充第一个列表框

        List2.AddItem Screen.Fonts(I)

        '填充第二个列表框

    Next I

End Sub

程序说明：

当程序开始运行时，激活了窗体的Form_Load()事件，首先定义了一个整型的变量I，用于控制程序中的循环，然后通过一个循环语句来读取屏幕的字体样式，最后通过两个赋值的语句来填充两个列表框。

运行程序，程序的运行结果如图2-37所示。

图2-37  程序的运行结果

注意：

@       在程序的运行过程中Columns属性是只读的。

2.5.2  MultiSelect属性

MultiSelect属性用于设置ListBox 控件中进行复选的方式。

它的语法结构如下所示：

object.MultiSelect=[Number]

其中MultiSelect属性的设置值及其说明如下：

n        0：不允许复选

n         1：在列表中单击鼠标就可以进行选择的动作

n         2：许用SHIFT键、方向键、CTRL键和鼠标键来进行复选的动作

下面以一个示例来说明MultiSelect属性的应用，示例程序的作用是从一个列表框向另外的列表框中添加选项，它的具体步骤如下所示：

1．开始工作

首先启动一个新的项目，在屏幕上就会出现一个空白的窗体，向窗体上添加两个ListBox控件和一个CommandButton控件，添加控件后的窗体如图2-38所示。

图2-38  添加控件后的窗体

其中控件的属性设置如表2-14所示。

表2-14  控件的属性设置

2．程序的初始化

在程序的设计阶段，在窗体上双击鼠标，在弹出的代码窗口中找到窗体的Form_Load()事件。

其中添加程序的初始化代码如下：

Private Sub Form_Load()

List1.AddItem "北京"

List1.AddItem "上海"

List1.AddItem "天津"

List1.AddItem "重庆"

List1.AddItem "哈尔滨"

List1.AddItem "深圳"

List1.AddItem "广东"

List1.AddItem "珠海"

List1.AddItem "汕头"

List1.AddItem "海南"

'初始化控件List1

List2.Clear

'初始化控件List2

End Sub

在程序的初始化代码中，首先向控件List1中添加了10个选项，然后通过一条语句List2.Clear把控件List2清空。

添加代码后的代码窗口如图2-39所示。

图2-39  代码窗口

3．响应按钮的按下动作

双击控件Command1，在代码窗口中的光标就会自动的跳转到控件Command1的Command1_Click()事件处，在该事件中添加下列代码：

Private Sub Command1_Click()

      For I = 0 To List1.ListCount - 1

        If List1.Selected(I) Then

            '判断选项的选中状态

            List2.AddItem List1.List(I)

            '向控件List2添加选项

        End If

    Next I

End Sub

4．运行程序

存储文件，按键盘上的功能键F5运行程序，程序运行的初始画面如图2-40所示。

图2-40  程序运行的初始画面