主题：ctrl+d 快捷键如何在用户菜单中开启

keydown事件： 
If e.Control = True AndAlso e.KeyCode = Keys.D Nothing Then

   Dim r As Row = e.Tables.Current '当前行

   Dim c AS integer = e.Table.Cols(e.Table.Colsel) ‘当前列位置

   Dim cn As String = e.Table.Cols(c) ’当前列名

   if r.Index < e.Table.Rows.Count  -1 Then  ‘如果不是最后一行

            dim r2 as row = e.Table.Rows(r.Index - 1) ’取得上一行

            r1(cn) = r2(cn)

   End if

End if

有问题， 在用户菜单中设置ctrl+D快捷键用系统命令重复填充Syscmd.Edit.RepeatFill()又不能用，

如何用ctrl+d 快捷键在用户菜单中填充鼠标拾取到行？