主题：ListView增加双击事件

e.Form.BaseForm.windowstate = 2
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() '暂停绘制
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.View = ViewMode.LargeIcon '显示模式为大图标
lvw.Images.LargeSize = New Size(117,135) '定义大图标尺寸
Tables("学生信息").sort ="学校名称,班级,学生姓名"
If Tables("学生信息").Rows.Count=0
    MESSAGEBOX.SHOW("请注意,你没有选择浏览学生范围,请选择好再来")
    e.Form.Close
    Return
End If
Dim it As Winform.StripItem = e.Form.Strips("状态栏").Items("left")
Dim ftp1 As New FtpClient
ftp1.Host="47.92.956"
ftp1.Account = ""
ftp1.Password = "
Dim key1 As String
For Each r As Row In Tables("学生信息").Rows '从数据表中提取数据
    Dim Key As String = r("相片") '获取此员工的照片文件
    If FileSys.FileExists(ProjectPath & "remotefiles" & Key) = False
        If ftp1.Download(key,ProjectPath & "remotefiles" & Key) = False
            key1 = ProjectPath & "images\wxp.jpg"
        Else
            key1 = ProjectPath & "remotefiles" & Key
        End If
    Else
        key1 = ProjectPath & "remotefiles" & Key
    End If
    lvw.Images.AddLargeImage(Key1,key1)
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
    vr.Text =r("班级") & " " &  r("学生姓名")  & vbcrlf & r("身份证件号")'设置标题
    vr.ImageKey = Key1 '设置图片键值
Next
lvw.ResumeRedraw() '
it.Text = "共计: " & Tables("学生信息").Rows.count & "人"

请问老师，能给图标增加双击事件吗，如能该如何做？