Videolu Anlatımla karşınızdayız
http://youtu.be/lt0cpBlZJHs

Kodlar

Dim Komut As New AutoItX3Lib.AutoItX3
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Command2_Click
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
SendKeys ("7")
End Sub
__________________