怎么实现点击listview的某一行，能打开另一个窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If e.Sender.Current IsNot Nothing Then
    forms("窗口2").Open
    Dim lvw As WinForm.ListView = e.Sender


    Dim vr As WinForm.ListViewRow = e.Row
    'Dim ikey As String = Guid.NewGuid.TOstring()
    Dim img = lvw.Images.LargeImages(vr.ImageKey)

    Dim lvw2 As WinForm.ListView = forms("窗口2").Controls("ListView1")
    lvw2.StopRedraw() '暂停绘制
    lvw2.Rows.Clear() '清除原来的行
    lvw2.Images.Clear() '清除原来的图片
    lvw2.View = ViewMode.Tile '显示模式为平铺
    lvw2.Images.LargeSize = New Size(65,75) '定义大图标尺寸
    lvw2.TitleSize = New Size(150,90) '设置平铺区域的大小
    Dim cls() As String = {"编号","姓名","部门","职务","性别"} '定义列名
    For i As Integer = 0 To cls.Length - 1 '增加列
        Dim c As WinForm.ListViewColumn = lvw2.Columns.Add()
        c.Name = cls(i) '指定列名
    Next

    lvw2.Images.LargeImages.Add(vr.ImageKey, img) '添加照片,直接用文件名作为图片键值
    Dim vr2 As WinForm.ListViewRow = lvw2.Rows.Add() '增加一行
    vr2.ToolTipText = vr.ToolTipText '设置此行的动态提示
    vr2.ImageKey = vr.ImageKey '设置图片键值
    For Each cl As String In cls '逐列取值
        vr2(cl) = vr(cl)
    Next
    lvw2.ResumeRedraw() '恢复绘制
End If

主题：怎么实现点击listview的某一行，能打开另一个窗口