Arkadaşlar ben şole bişi yapıcam

Private Sub Command6_Click()
Dim i As Integer
For i = 1 To 1000
SendKeys "", True
SendKeys "", True
SendKeys "", True
SendKeys "", True
SendKeys "", True

Next i
End Sub

ama ben ornek

SendKeys "", True bu tuşa basın ca 3 saniye bekleyip
SendKeys "", True buna gecmesini sağlamasını istiyorum ama bi turlu beceremedim. Timer ile olacak heralde cooookk acil yardım lutfen bilen varsa yapsın +10 K rep
__________________