Hur får man detta att fungera detta fungerar uppenbarligen inte men jag tror ni vet vad jag är ute efter
tinern sätts till ex:1000 så ska den få cmd1 att klicka varje sec.

Private Sub Timer1_Timer()
cmd.klick
End Sub

<code>
Private Sub Timer1_Timer()
Call cmd_Click()
End Sub
</code>

/Micke

Du kan ju också fundera på om det inte är bättre att ha den kod
du nu har i cmd_Click att ligga direkt i Timer1 så behöver du inte göra Call.

jodå jag har tänkt på det sven men det är så att om jag använder mej av

Private Sub Timer1_Timer()
SendKeys "{A}"
End Sub

så skriver den i det aktiva fönstret.

jag vill att den ska skriva i txt1 även om jag själv håller på i txt2 samtidigt.
därför tänkte jag att timern kunde styra cmd1 som i sin tur kör txt1.text="A"

Mystiskt Intressant :-) ? lösning skulle var kul att se det när det blir färdigt.

Ang SendKeys så bör det se ut så här SendKeys "A", True
Eller
Text1.SetFocus
SendKeys "+a", True

Ny fråga hur gör man för att simulera en mustryckning tex vänsterklick

i detta fall blir det ett A

Private Sub Timer1_Timer()
SendKeys "{A}"
End Sub


hur ser det ut i fallet vänsterklick?

<code>
Option Explicit
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Text1.SetFocus
SendKeys "A", True
End If
End Sub
</code>

Tycker det hela verkar mycket mystiskt, och att du gör saker helt i onödan. Vad är det du vill åstadkomma?

Jag har svårt att tänka mig att du behöver anropa cmd1 överhuvudtaget. Det räcker nog med att använda .SelText eller .Text i ditt Timer-event.

Men som sagt; säg vad du vill göra så kan man säga om det finns ett vettigare sätt att göra det på.

Ja nog är det tokigt men jag håller på att labba bara för att se om det funkar
så glöm min tokiga ide förut.

Just nu så vill jag lägga in kod i en timer som vänsterklickar var 10 sec

den här koden ger ju ett A i aktuellt fönster

Private Sub Timer1_Timer()
SendKeys "{A}"
End Sub

hur skriver jag för att simulera vänsterklick ?

var hittar jag info om vilken kod till vilken tangent tex 8 i numeriska delen av tangentbordet
eller enterknappen på numreriska delen av bordet?

Kolla på API:t mouse_event, sök i forumet eller i API-Guide (http://www.mentalis.org/agnet/apiguide.shtml)

/Micke

Sätt Formens KeyPreview = True

<code>
Private Sub Form_KeyPress(KeyAscii As Integer)
MsgBox "knappen har Asciikod " & KeyAscii & " = " & Chr$(KeyAscii)
End Sub
</code>
Eller om knappen inte har Asciikod tex F8
<code>
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
MsgBox "knappen har kod " & KeyCode
End Sub
</code>