[سعود]

جرب هذا المثال

كود :

Public Class Form1
    Dim ok As Boolean = False
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If ok = False Then
            lbl.Left += 1
        Else
            lbl.Left -= 1
        End If
    End Sub

  

    Private Sub lbl_Move(sender As Object, e As EventArgs) Handles lbl.Move
        If lbl.Right = Me.Width Then
            ok = True
        ElseIf lbl.Left = 0 Then
            ok = False
        End If
    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
        lbl2.Left += 1
    End Sub

    Private Sub lbl2_Click(sender As Object, e As EventArgs) Handles lbl2.Click

    End Sub

    Private Sub lbl2_Move(sender As Object, e As EventArgs) Handles lbl2.Move
        If lbl2.Left = Me.Width Then
            lbl2.Left = 0 - lbl2.Width
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        lbl2.Left = 0 - lbl2.Width
    End Sub
End Class