Private Sub Command4_Click()
if text6.backcolor = .... then
Text6.BackColor = ffff00
else
Text6.BackColor = ....
End Sub
bunu denedinmi