关于指向问题！

在treeview里关于鼠标选中是这段代码
Private Sub TreeView1_MouseUp(Button As Integer, Shift As Integer, X As Single, y As Single)
        If Button = 2 Then
    
        If Left(TreeView1.SelectedItem.Key, 1) = "c" Then '选中员工
            Nowygid = Right(TreeView1.SelectedItem.Key, 4) '刷新nowygid
            PopupMenu Me.Left2Menu, , , y + 600
            Exit Sub
        End If
        If Left(TreeView1.SelectedItem.Key, 1) = "r" Then '选中部门
            PopupMenu Me.Left1Menu, , , y + 600
            Exit Sub
        End If
    End If
End Sub
我现在想用键盘上的光标键移动到各接点也得到这个效果（即相当于鼠标单击选种的效果）怎么写代码啊？