sample:

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
With TextBox1
Select Case .BackColor
Case vbWindowBackground
.BackColor = vbRed
Case vbRed
.BackColor = vbGreen
Case vbGreen
.BackColor = vbWindowBackground
Case Else 'you shouldnt need this :)
debug.print .backcolor
stop
End Select
End With
End Sub





--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Lenny_821 wrote :


Hi All,

I've got about 10 TextBox's on a UserForm. How can I change the
BackColor of the TextBox (Double Click) with 1 Code?



Lenny