Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
For i = 0 To 8
Text1(i).BackColor = Me.BackColor
Next
End Sub

Private Sub Text1_MouseMove(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1(index).BackColor = vbYellow
End Sub

Detta ex ger ju gul bakgrunds färg i textboxarna,
när man drar med markören över boxarna
Och alla boxar tappar den gula färgen när jag drar markören över formen.

Det jag vill är, att boxen ska tappa den gula färgen när jag flyttar till nästa box
Alltså bara en gul box åt gången, där man har markören



Sören

Jag tog din kod och den funkar perfekt utan modifikation.


/B

Hmmm kan jag ha boxarna för nära varandra

Detta bör fungera som du vill. Bör dessutom slippa att den eventuellt flimmrar. Eftersom kontrollena bar uppdateras vid förändring.
<code>
Privat Sub SetBackColor(Optional Byval Index As long = -1, Optional Byval Color As Long)
Dim TextBox As Textbox
Static LastIndex As long
If LastIndex <> Index Then
For Each TextBox In Text1
If TextBox.Index = Index Then
TextBox.BackColor = Color
Else
TextBox.BackColor = BackColor
End If
Next
LastIndex = Index
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
SetColor -1
End Sub

Private Sub Text1_MouseMove(index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
SetColor Index, vbYellow
End Sub
</code>