[VB] Simple Contador de Caracteres By OTACON

Public Class Form1

    Private Sub Contador1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Contador1.TextChanged
        GroupBox1.Text = "Caracteres: " & Len(Contador1.Text) & ""
    End Sub

    Private Sub Contador4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Boton1.Click
        Texto1.Text = "new " & TextBox1.Text & "[" & Len(Contador1.Text) + 1 & "];"
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        System.Diagnostics.Process.Start("http://forum.sa-mp.com")
    End Sub

    Private Sub Contador2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Contador3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Texto1.Text = ""
        Contador1.Text = ""
    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        System.Diagnostics.Process.Start("http://forum.sa-mp.com/member.php?u=114385")
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Color1.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Color1.Text = "Contador de Caracteres"
        Color2.Text = ""
        Color3.Text = ""
        Timer1.Start()
    End Sub

    Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Color1.Text = "Contador de Caracteres"
        Color2.Text = ""
        Color3.Text = ""
        Timer1.Stop()
        Timer2.Start()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Color1.Text = ""
        Color2.Text = "Contador de Caracteres"
        Color3.Text = ""
        Timer2.Stop()
        Timer3.Start()
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Color1.Text = ""
        Color2.Text = ""
        Color3.Text = "Contador de Caracteres"
        Timer3.Stop()
        Timer1.Start()
    End Sub
End Class