vb subtítulos rodantes
Opción explícita
'
'Desplazador de subtítulos
' Controles utilizados: 1 control de etiqueta, 1 control de texto, 1 control de temporizador, 1 control HScrollbar, 2 controles de opción (botones de opción)
'Ingrese los subtítulos que se desplazarán en el cuadro de entrada Texto1
'
'
Private Sub Form_Load( )
HScroll1.Max = 10
HScroll1.Min = 1
HScroll1.Value = 1