源代码如下：
Dim t1(100) As Data, i As Integer

Private Sub Command1_Click()
List1.AddItem Text1.Text
t1(i) = Time ’此处有错“对象变量或with块变量未设置”
i = i + 1
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Label3.Visible = False
End Sub

Private Sub List1_Click()
Label3.Visible = True
Label2.Visible = False
Text1.Text = t1(List1.ListIndex)
End Sub

Private Sub Text1_GotFocus()
Label2.Visible = True
Label3.Visible = False
Text1.Text = ""
End Sub

xRESE4YU.rar (2.12 KB) [求助]关于列表框的使用

是啊
实在是不好意思
我真是粗心大意