Código: Seleccionar todo

'========================================================================================================================'
    '                                   Efectos movimiento letras                                                            '
    '                                   Autor: DuNeD@i                                                                       '
    '                                   Para: Udtools.net                                                                    '
    '========================================================================================================================'
     
    Dim sContador As Integer
    Dim Titulo As String

    Private Sub Form_Load()
        sContador = 0
        Form1.Caption = " "
    End Sub
     
    Private Sub Command1_Click()
        Timer1.Enabled = 0
        Timer2.Enabled = 0
        Timer1.Enabled = 0
        Timer4.Enabled = 0
        sContador = 0
    End Sub
     
    Private Sub Option1_Click()
        If Option1.Value = True Then
           Timer1.Enabled = True
           Timer2.Enabled = False
           Timer3.Enabled = False
           Timer4.Enabled = False
           Titulo = "Efecto de letras en movimiento..."
        End If
    End Sub
     
    Private Sub Option2_Click()
        If Option2.Value = True Then
            Timer1.Enabled = False
            Timer2.Enabled = True
            Timer3.Enabled = False
            Timer4.Enabled = False
            Titulo = "                    Efecto de letras en movimiento...                      "
        End If
    End Sub
     
    Private Sub Option3_Click()
        If Option3.Value = True Then
            Timer1.Enabled = False
            Timer2.Enabled = False
            Timer3.Enabled = True
            Timer4.Enabled = False
            Titulo = "                    Efecto de letras en movimiento...                      "
            sContador = Len(Titulo)
        End If
    End Sub
     
    Private Sub Option4_Click()
        If Option4.Value = True Then
            Timer1.Enabled = False
            Timer2.Enabled = False
            Timer3.Enabled = False
            Timer4.Enabled = True
            Titulo = "Efecto de letras en movimiento..."
        End If
    End Sub
     
    Private Sub Timer1_Timer()
        Dim sFinal As String
        sContador = sContador + 1
        sFinal = sFinal + Mid(Titulo, sContador, 1)
        Form1.Caption = Form1.Caption + sFinal
        If sContador > Len(Titulo) Then
           Form1.Caption = " "
           sContador = 0
        End If
    End Sub
     
    Private Sub Timer2_Timer()
        Dim sFinal As String
        sContador = sContador + 1
        sFinal = sFinal + Mid(Titulo, sContador, Len(Titulo))
        Form1.Caption = sFinal
        If sContador > Len(Titulo) Then
           Form1.Caption = " "
           sContador = 0
        End If
    End Sub
     
    Private Sub Timer3_Timer()
        Dim sFinal As String
        sContador = sContador - 1
        If sContador < 1 Then
           sContador = sContador + Len(Titulo)
           Form1.Caption = " "
        End If
        sFinal = sFinal + Mid(Titulo, sContador, Len(Titulo))
        Form1.Caption = sFinal
    End Sub
     
    Private Sub Timer4_Timer()
        Dim sFinal As String
        Form1.Caption = " "
        sFinal = sFinal + Mid(Titulo, 1, Len(Titulo))
        If Form1.Caption = " " Then
            Form1.Caption = sFinal
            Timer5.Enabled = True
            Timer4.Enabled = False
        End If
    End Sub
     
    Private Sub Timer5_Timer()
        Form1.Caption = " "
        Timer5.Enabled = 0
        Timer4.Enabled = 1
    End Sub