the interval value 2000 is equivalent to 2 seconds
then type this one:
Private Sub Timer1_Timer()
Static ctr as integer
' Start loading the form title here
if ctr = 0 then
form1.caption = "New caption"
ctr=1
else if ctr =1 then
form1.caption ="Other caption
ctr=2
else if ctr = 2 then
form2.caption = "Last caption
ctr=0
end if
End Sub