Ставишь таймер. В обработчике меняешь текст. На VB года полтора не писал, но выглядеть будет примерно так.
Код:
Sub Timer1_IDontRememberEventName(somKewlParameters)
If label.Caption = "First" Then
label.Caption = "Second
ElIf label.Caption = "Second" Then
label.Caption = "Third"
ElIf label.Caption = "Third" Then
label.Caption = "First"
End If
End Sub
