谁能帮我写个代码?

关于要个跟按键精灵差不多的,要不停的按ctrl,差不多0.1秒按一次,不是要按住的,要用HOME按键启动,END按键停止,我只要代码.的问题

在窗体中添加一个 Timer 控件,其 Enabled 属性设置为 False ,并复制以下代码:
‘========================================================
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 36 ‘Home 键
Timer1。
Enabled = True
Case 35 ‘End 键
Timer1。Enabled = False
End Select
End Sub
Private Sub Form_Load()
Timer1。Enabled = False ‘以防万一
Timer1。
Interval = 100 ‘100 毫秒即为 0。
1 秒
End Sub
Private Sub Timer1_Timer()
SendKeys (“^”) ‘向活动的窗口发送 Ctrl 键按键消息并立即返回到过程
End Sub
‘========================================================
如果不明白,请找我联系。