Código fuente del salvapantallas VC
Form1.Top = 0'
Form1.Width = Screen.Width'
Form1.Width = Screen.Width.Form1.Left = 0'
Form1.Top = 0'
Form1.Width = Screen.Width'
Form1.Height = Screen.Height' Estas cuatro líneas forman1 Llenar toda la pantalla
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Time 'Hacer que el título de la etiqueta1 muestre la hora
Si LOrR Entonces 'Si LOrR entonces 'Si LOrR está a la izquierda
Label1.Left = Label1.Left - 10
Else 'Si LOrR está a la derecha
Label1.Left = Label1.Left 10
Finalizar si
Si Label1.Left <= 0 Then LOrR = False 'Si label1.Left es menor que 0, mover A la derecha. Si Label1.Left es menor que 0
Si Label1.Left gt; Form1.Width - Label1.Width Then LOrR = True 'Si el lado izquierdo de label1 es mayor que el rango de la pantalla, muévase hacia la izquierda
Fin Sub