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

小女子初学VB，请教一个简单的问题，希望哪位大侠能帮帮我 (急)
在名称为Form1的体上画一个名称Shape1的形状控件，在属性窗口中将其设置为圆形。画一个名称为List1的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“”。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择3，则形状控件中被竖线填充。如图所示。
要求：
程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。


这个问题很简单 但是我不会555555555555 运行不出来 ！我就想知道怎么写这么一条语句，能使得单击列表框中的某一项，则将所选的值作为形状控件的填充参数

谢谢各位大侠了 ^^

------解决方案--------------------
Private Sub List1_Click()
Shape1.FillStyle = List1.List(List1.ListIndex)
End Sub