点击了Command1相当于list1中的第一项？代码是？？急求！！～～

Question

点击了Command1相当于list1中的第一项？代码是？？

Answer 1

Private Sub Command1_Click()
   List1.ListIndex = 0
   
End SubPrivate Sub Form_Load()
   Dim i As Integer
   For i = 1 To 5
       List1.AddItem i
   Next
   
End Sub

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    List1.ListIndex = 0
    Call List1_Click
End SubPrivate Sub Form_Load()
    List1.AddItem "aaa"
    List1.AddItem "bbb"
    List1.AddItem "ccc"
End SubPublic Sub List1_Click()End Sub