Dim i
i = 1
Do
Key = WaitKey
If Key = 65 Then
Text = Plugin.Office.ReadXls(1, i, 1)
Call Plugin.Sys.SetCLB(Text)
End If
If Key = 83 Then
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
i = i + 1
End If
Loop