flashing text in a textbox

[Vince McMullin]

How do you make the text flash in a textbox?

When an event adds text to a box, I'd like for it to flash..... Any easy way to do this?

[Jop]

Flash? you mean like blinking?
That's easy, just add a timer with an interval of say, 1 second (1000 milliseconds)

'In the general declerations put:
Public orgstring as String

'In the sub you want to start the blinking put:
orgstring = Text1.Text

'In the timer event put
If Text1.Text = orgstring Then
   Text1.Text = ""
Else
   Text1.Text = orgstring
End If

Haven't test it, but it should work

Or you could try this,
it works the same, but it is a little less complicated, since it uses booleans

Public strBlink As String
Dim blnEnable As Boolean


Private Sub Command1_Click()
    strBlink = Text1.Text
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    blnEnable = Not blnEnable
    If blnEnable = True Then
        Text1.Text = ""
    ElseIf blnEnable = fale Then
        Text1.Text = orgstring
    End If
End Sub

[Vince McMullin]

Would it matter if the text is being sent from the module to the textbox after a function is performed?