'Timer1 Interval = 2000; Enabled = True
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim str1 As String = "AAAAAAAAAAAAAAAAAA"
Dim str2 As String = "BBBBBBBBBBBBBBBBBB"
Dim str3 As String = "CCCCCCCCCCCCCCCC"
Label1.Text = str1
If Label1.Text = str1 Then
Label1.Text = str2
ElseIf Label1.Text = str2 Then
Label1.Text = str3
ElseIf Label1.Text = str3 Then
Label1.Text = str1
End If
End Sub
Dim dt As DispatcherTimer = New DispatcherTimer
' Constructor
Public Sub New()
InitializeComponent()
dt.Interval = New TimeSpan(0, 0, 0, 0, 1000)
AddHandler dt.Tick, AddressOf Me.dt_Tick
dt.Start()
End Sub
Private Sub dt_Tick(ByVal sender As Object, ByVal e As EventArgs)
End Sub
Windows Phone and Timer (Trigger, Tick, DispatcherTimer)