Private Sub Command1_Click()
'For i = 0 To List1.ListCount - 1
Select Case List3.ListIndex
Case 0'点第一行时
MsgBox "6"
Case 1
MsgBox "4"
End Select
End Sub
Private Sub Command1_Click()
If List1.ListIndex = 0 Then
MsgBox 6
ElseIf List1.ListIndex = 1 Then
MsgBox 4
End If
End Sub
没明白为何为-5