Me.Close | Len | Mid | Timer1.Interval function in vb.net

Me.Close | Len | Mid | Timer1.Interval function in vb.net
count length of the string .Using timer control.
Public Class Form1
    Dim str, a As String
    Dim j, k, l As Integer
    Private Sub ExitToolStripMenuItem_Click(ByVal....) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub MenuStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles MenuStrip1.ItemClicked

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        str = " dev raj"
        l = Len(str) + 1
        j = 0
        k = 1
        Timer1.Enabled = True
    End Sub
    Private Sub Timer1_Tick(ByVal....) Handles Timer1.Tick
        'j = j + 1

        a = Mid(str, l, 1)
        Label1.Text = a + Label1.Text
        l = l - 1
        If l <= 0 Then
            Label1.Text = str
            l = Len(str) + 1
            Timer1.Interval = 1000
            Label1.Text = ""
            Timer1.Enabled = True
        End If

        'If j >= Len(str) + 1 Then
        '    'a = ""
        '    j = 0
        '    Timer1.Interval = 1000
        '    Label1.Text = ""
        '    Timer1.Enabled = True
        'End If
    End Sub
End Class

Share This