Private Sub Form_Load()
For i = 0 To Text1.Count - 1
Text1(i).Visible = False
Next i
End Sub
______________________________________________________________
Private Sub Image1_Click(Index As Integer) 'image1数组是套在text1上的
Text1(Index).Visible = True
End Sub

我想弄个鼠标点在image1(0)上后，就显示出text1(0)，并且得到光标，这个倒还可以解决
不过，我想当他点别的image1(?)时，比如是image1(1)时，原先显示的text1(0)再变回隐藏，而改为text1(1)变为显示
，应该怎么弄啊，哪位兄弟帮我改一下吧，先谢啦

Option Explicit
Dim num As Integer

Private Sub Form_Load()
Dim i As Long
For i = 0 To Label1.Count - 1
Label1(i).Visible = False
Next
End Sub

Private Sub Image1_Click(Index As Integer)
Label1(num).Visible = False
num = Index
Label1(Index).Visible = True
End Sub

哦，明白了，谢谢班主