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
