[سامي محمد]

أعملها بــ Timer

كود :

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
    Dim i As Single
    Dim O As Boolean
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If O = False Then
            Panel1.Left += i
            i += 0.1
            If i >= 5.5 Then Timer1.Stop() : O = True : Button1.Text = "<"
        Else
            i -= 0.1
            Panel1.Left -= i
            If i <= 0 Then Timer1.Stop() : O = False : Button1.Text = ">"
        End If
    End Sub