主题：剪贴板复制黏贴报错

我在TEXTBOX中的keydown执行语句报错：请问老师如何修改代码

此主题相关图片如下：qq截图20181203082514.png

代码：

If e.KeyCode = Keys.ENTER Then
Dim t As String = e.Form.Controls("TextBox1").Text
 ClipBoard.Clear
 ClipBoard.SetText(t)
Output.Show(t)
Dim r1 As DataRow = DataTables("表A").Find("name = 'a'")
Dim r2 As DataRow = DataTables("表A").Find("name = 'b'")
        SetCursorPos (r1("x"), r1("y")) '鼠标位置
        mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) '点击
        mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
        ClipBoard.GetText(t)
        SendKeys.SendWait("{Enter}")
        System.Threading.Thread.Sleep(100)

        SetCursorPos (r2("x"), r2("y")) '鼠标位置
        mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0) '点击
        mouse_event (MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)
       
        e.Form.Controls("TextBox1").value = Nothing
        e.Form.Controls("textbox1").Select()
End If