مساعدة : أبحث عن كود لعمل Scroll using buttons

PHP كود :
Public Class Form1
    Dim se As Integer = 0
    Dim dir As String
    Private Sub fp_Scroll(sender As Object, e As ScrollEventArgs) Handles fp.Scroll
        Me.Text = e.OldValue
    End Sub
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If dir = "down" Then
            se += 2
            fp.AutoScrollPosition = New Point(fp.Width, se)
        ElseIf dir = "up" Then
            se -= 2
            fp.AutoScrollPosition = New Point(fp.Width, se)
        End If
    End Sub
    Private Sub Button3_MouseDown(sender As Object, e As MouseEventArgs) Handles Button3.MouseDown
        If e.Button = MouseButtons.Left Then
            dir = "down"
            Timer1.Start()
        End If
    End Sub
    Private Sub Button3_MouseUp(sender As Object, e As MouseEventArgs) Handles Button3.MouseUp
        Timer1.Stop()
    End Sub
    Private Sub Button1_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
        If e.Button = MouseButtons.Left Then
            dir = "up"
            Timer1.Start()
        End If
    End Sub
    Private Sub Button1_MouseUp(sender As Object, e As MouseEventArgs) Handles Button1.MouseUp
        Timer1.Stop()
    End Sub
End Class