窗体有个PictureBox1控件数组,共有六个（0-5），我想实现比如当鼠标当前选中当前的是Picture1(0)，这时它显示蓝色外筐，既高亮，其他的显示白色外筐，然后我选择Picture1(1),这时Picture1(1)显示蓝色外筐，其他的显示白色外筐，但是不知道为什么只能在Picture1(0)和Picture1(1)之间看到一点点的效果，请大家帮我看看，我程序是这样写的：
Private Sub Picture1_Click(Index As Integer)
Dim i As Integer '计数器
Dim comNum As Integer '按钮的索引号
comNum = 0
For i = 0 To Picture1.Count - 1
comNum = comNum + 1
If comNum > Picture1.Count - 1 Then comNum = 0
Picture1(conNum).Line (0, 0)-(Picture1(conNum).ScaleWidth - 2, Picture1(conNum).ScaleHeight - 1), vbWhite, B
Next
Picture1(Index).Line (0, 0)-(Picture1(Index).ScaleWidth - 2, Picture1(Index).ScaleHeight - 1), vbBlue, B
End Sub

哈哈，太粗心了，错了个字母，搞定！

[此贴子已经被作者于2007-4-16 13:31:30编辑过]