运行时错误70：Windows 10上的VB5中的权限被拒绝

Question

在登录表单上的文本框中按Enter时出现错误。当我输入用户名（TextBox）并按Enter时，我得到

  

运行时错误70：权限被拒绝。

但是当我专注于按钮时按Enter时，不会出现错误。

我知道年龄和兼容性存在很大差异，但是在Windows 7中没有收到此错误。我正在使用旧的VB5应用程序，并且必须在Windows 10上进行测试。我已经尝试将此代码添加到Windows 7中。模块：

Public Sub Sendkeys(text As Variant, Optional wait As Boolean = False)
    Dim WshShell As Object
    Set WshShell = CreateObject("wscript.shell")
    WshShell.Sendkeys CStr(text), wait
    Set WshShell = Nothing
End Sub

请帮助：）