求助WIN7（32）下VB使用WINIO模拟键盘输入

尝试用WINIO做了个驱动级按键模拟，用VB做的。在XP下运行良好，换成WIN7（32）下运行时发现虽然WINIO加载成功了,但是没有模拟效果。
据说win 7不支持winio
求助各位大虾帮小弟解决下这个疑问，不甘心啊。
我用的是win7（32位）系统 加载代码如下：
Private Sub Form_Load()
          Dim ret     As Long
          If InitializeWinIo = False Then
'用InitializeWinIo函数加载驱动程序，如果成功会返回true，否则返回false
          MsgBox "驱动程序加载失败!"
          Unload Me
          End If
            End Sub
  Private Sub Form_Unload(Cancel As Integer)
          ShutdownWinIo '程序结束时用ShutdownWinIo函数卸载驱动程序
                  
  End Sub

补充：VB ,  VBA