主题：精确控制行的拖动行为，求助

Dim lvw1 As WinForm.ListView = e.Form.Controls("ListView1") '员工列表
Dim lvw2 As WinForm.ListView = e.Form.Controls("ListView2") '活动一参与者列表
Dim lvws() As Winform.ListView = {lvw1,lvw2} '看看我们是怎样批量设置某组控件属性的
For Each lvw As WinForm.ListView In lvws
    lvw.View = ViewMode.List
    lvw.AllowDrag = True
    lvw.AllowDrop = True
    lvw.Images.AddSmallImage("nanren", "nanren.ico") '添加代表男性的一对图标
    lvw.Images.AddSmallImage("nvren", "nvren.ico") '添加代表女性的一对图标
Next
For Each dr As DataRow In DataTables("员工表").Select("","性别") '列出所有员工
    Dim vr As WinForm.ListViewRow = lvw1.Rows.Add()
    vr.Text = dr("姓名")
    vr.Name = dr("姓名") '将ListViewRow的Name属性设置为员工姓名
    If dr("性别") = "男" Then
        vr.ImageKey = "nanren"
    Else
        vr.ImageKey = "nvren"
    End If
Next

现在只显示姓名和图标，如果还想再显示出员工编号的话，怎么写呢？