Hej Ivar
Jo tack, det fungerade så långt.
Med den koden som jag skrev i inlägget
kan jag ändra i textruta1 om jag clickade
på fel kommandoknapp, men jag får det
inte att fungera i den kod som du gav mig.

Ett stort tack så långt

Novisen inte vid spisen, men väl bakom datorn

Stone

Nu är väl detta meddelande i fel forum om jag har förstått rätt. VB skall det väl vara? För att kunna korrigera kan du ha koden så här (om du vill ha det på detta sätt).
<code>
Dim id As Integer

Sub do_magic() ' Nej, jag kom inte på ett bättre namn :)
Dim a As Integer
If id = -1 Then id = Text1.UBound
If id = Text1.UBound + 1 Then id = 0
For a = 0 To Text1.UBound
Text1(a).BackColor = vbWindowBackground
Next a
Text1(id).BackColor = vbGreen
End Sub

Private Sub cmd1_Click()
Text1(id).Text = "1"
id = id + 1
do_magic
End Sub

Private Sub cmdx_Click()
Text1(id).Text = "X"
id = id + 1
do_magic
End Sub

Private Sub cmd2_Click()
Text1(id).Text = "2"
id = id + 1
do_magic
End Sub

Private Sub cmdBack_Click()
id = id - 1
do_magic
End Sub

Private Sub cmdFwd_Click()
id = id + 1
do_magic
End Sub
</code>

Som du säkert märker har jag lagt till två knappar för att backa eller gå framåt. Det kan lätt modifieras till att t ex den rutan man trycker på "markeras". Dessutom skall textrutorna fortfarande vara indexerade.
<br><br>
/Ivar

Råkade dubbelposta...
<br><br>
--edit<br>
... och då kan jag ju lägga in koden för att markera en ruta genom att klicka på den eftersom det är så lätt och jag är så snäll idag.
<code>
Private Sub Text1_Click(Index As Integer)
id = Index
do_magic
End Sub
</code>
/Ivar