如何为ListBox添加双击事件

Question

vb新手，请各位高人帮忙，谢谢！界面上有一个ListBox ，id为lstFile，然后有一个按钮cmdFile，还有一个commonDialog，id为CDFile。
以下是按钮事件：
Private Sub cmdFile_Click()
Dim strFilePath As String
    Dim mFile() As String
    Dim i As Long
    With CDFile
        .FileName = ""
        .MaxFileSize = 32767
        .Filter = "Excel(*.xls)|*.xls|All Files|*.*"
        .Flags = cdlOFNAllowMultiselect + cdlOFNExplorer
        .Action = 1
        mFile = Split(.FileName, Chr(0))
        If UBound(mFile) = 0 Then
            lstFile.Clear
            lstFile.AddItem mFile(0)
        Else
            lstFile.Clear
            For i = 1 To UBound(mFile)
                lstFile.AddItem mFile(0) + "\" + mFile(i)
            Next i
        End If
        Erase mFile
        mCheckFile = False
    End With
    SetTip "选择文件"
    Me.cmdNext.Enabled = IIf(lstFile.ListCount = 0 Or txt1(0).Tag = 0, False, True)End Sub现在我想实现这个功能：假如我选择了多个Excel文件，在listBox中列出。然后选择listBox列表中的某一条记录，双击后删除该条记录，在线等，谢谢！

Answer 1

Private Sub Form_Load()
    With List1
        .AddItem "qqqqq"
        .AddItem "fdfs"
        .AddItem "tttt"
        .AddItem "2222"
        .AddItem "yy"
        .AddItem "7777777777"
        .AddItem "jjj"
    End With
    
End SubPrivate Sub List1_DblClick()
    Dim i As Integer
    
    For i = List1.ListCount - 1 To 0 Step -1
        If List1.Selected(i) = True Then
            List1.RemoveItem i
        End If
    Next i
            
End Sub