小女子初学VB，请教一个简单的问题，希望哪位大侠能帮帮我 (急)

Question

在名称为Form1的体上画一个名称Shape1的形状控件，在属性窗口中将其设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“”。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图所示。
要求：
程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。
这个问题很简单 但是我不会555555555555  运行不出来  ！我就想知道怎么写这么一条语句，能使得单击列表框中的某一项，则将所选的值作为形状控件的填充参数谢谢各位大侠了 ^^

Answer 1

Private Sub List1_Click()
    Shape1.FillStyle = List1.List(List1.ListIndex)
End Sub