Red de conocimiento informático - Problemas con los teléfonos móviles - Fuente de programación VB con efectos animados

Fuente de programación VB con efectos animados

Dim x As Boolean

Private Sub Form_Load()

Timer1.Enabled = True

Timer1.Interval = 100

Fin Sub

Private Sub Timer1_Timer()

Label1.Caption = "hola mundo"

Label1.AutoSize = True

Si x = True Entonces

Etiqueta1.Izquierda = Etiqueta1.Izquierda - 100