Visual Basic - gráfico con efecto scrolling

Haber si alguién me puede echar un cable, quisiera un gráfico con efecto scrolling que empezara desde la izquierda y no desde la derecha como me sale en el ejemplo adjunto. O sea que empezara a acumular hasta llegar al final donde continuaría con el efecto scrolling ¿alguna idea? En el ejemplo hay un picturebox (Pbox) y un timer:

Option Explicit

'variables de niveles
Private BAR_HEIGHT As Integer
Private GraphPoints(1 To 100) As Long

Private Sub Form_Load()
'comenzar generador aleatorio
Randomize
End Sub

Private Sub Timer1_Timer()
'Este Timer es para probar
Dim Random_Seed As Long
On Error Resume Next
'Generar número aleatorio para probar
Random_Seed = Int((100 * Rnd) + 1)

'Mostrar Scrolling
Call UpdateGraph(Pbox, Random_Seed, True)

End Sub

Public Sub UpdateGraph(Pbox As PictureBox, BAR_HEIGHT As Long, isScrollStyle As Boolean)
Dim Cnt As Long
On Error Resume Next
'Preparamos estilo picture
Pbox.ScaleLeft = 0
Pbox.ScaleTop = 100
Pbox.ScaleWidth = 100
Pbox.ScaleHeight = -100

Call ShiftPoints 'rutina desplazar a la izquierda
GraphPoints(100) = BAR_HEIGHT
Pbox.Cls
'Redibujamos el gráfico usando nuevos valores
For Cnt = 1 To 100 - 1
Pbox.Line (Cnt, 0)-(Cnt, GraphPoints(Cnt))
Next Cnt
End Sub

Private Sub ShiftPoints()
Dim CntShift As Long
On Error Resume Next
'Desplazamos barra gráfico a la izquierda para mostrar efecto scrolling,
'desplazamos todos los puntos del gráfico un lugar a la izquierda
For CntShift = 1 To 100 - 1
GraphPoints(CntShift) = GraphPoints(CntShift + 1)
Next CntShift
End Sub