Sub Globals
'Declare the global variables here.
flag=0
End Sub
Sub App_Start
Form1.Show
button1.FontColor=cred
timer1.Enabled=true
End Sub
Sub Timer1_Tick
If flag=0 Then
button1.FontColor=cblue
flag=1
Return
End If
If flag=1 Then
button1.FontColor=cred
flag=0
Return
End If
End Sub