窗體添加壹個timer控件即可
Dim i As Integer
Private Sub Form_Load()
Timer1.Interval = 2000
End Sub
Private Sub Timer1_Timer()
i = i + 1
If i Mod 2 = 0 Then
sendkey "{k}"
Else
sendkey "{A}"
End If