Programación VB Tema de programación: Agregue cuatro controles de comando y una etiqueta. Después de ejecutar el programa, cuando se presiona comando1, la etiqueta sigue moviéndose hacia la derecha
Private Sub Command4_Click()
Descargarme
End Sub
Private Sub Form_Load()
Label1.AutoSize = True
End Sub
Private Sub Timer1_Timer()
Label1.Left = Label1.Left k
If Label1.Left lt = 0 Then Label1; .Left lt;= 0 Entonces Label1.Left lt;= 0 Si Label1.Left lt;= 0 Entonces Label1.Left lt;= 0 Entonces Label1.Left lt;= 0Left lt;= 0 Entonces
Label1.Left = 0
Timer1.Interval = 0
Finalizar si
If Label1.Left Label1.Width gt; = Me.ScaleWidth Then
Label1.Left = Me.ScaleWidth - Label1.Width
Timer1.Interval = 0
If Label1.Left Label1.Width gt = Me.ScaleWidth Then
Label1.Left = Me.ScaleWidth - Label1.WidthInterval = 0
Fin si
Fin Sub