Form Başlığında Kayan Yazı  

Bu örneğimizde formumuzun başlığı kaydıracağız.
İlk önce yapmamız gereken formumuza 1 adet Timer eklemek. Timer ın interval değerini 100 yapın.
Timer_Tick olayına aşağıdaki kodları yazın.

Forma yazılacak kodlar:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Kayan Yazı Örnek...Bahadirsa  "
        Timer1.Interval = 100
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim str As String
        Dim i As Integer
        str = ""
        For i = 1 To Me.Text.Length - 1
            str = str + Me.Text(i)
        Next
        Me.Text = str + Me.Text(0)
    End Sub
End Class

‘Bir sonraki makalede görüşmek üzere...Bahadirsa