Как сделать растяжение по ширине экрана - VB

Формулировка задачи:

Dim A As Double
Dim q As Double
Dim j As Integer
Dim ar(1 To 1000) As Double
Dim k As Integer
Dim l As Integer
Dim t As Integer
Dim f As Integer
Dim n As Integer
 
Private Sub Command1_Click()
k = Text1.Text
l = 1
t = 3525
f = 25
Timer1.Enabled = True
 
End Sub
 
Private Sub Command2_Click()
Timer1.Enabled = False
 
End Sub
 
Private Sub Command3_Click()
Picture1.Cls
For q = 1 To 100
ar(q) = 0
Next q
End Sub

Private Sub Timer1_Timer()
A = Int((k * Rnd) + l)
ar(A) = ar(A) + l
 
For j = 1 To k
n = l + j * 100
Picture1.Scale
Picture1.Line (n, t)-(n - 70, t - f * ar(j)), RGB(255, 0, 0), BF
 
Next j
End Sub

Как сделать чтобы при изменении интервала, линии растягивались до ширины экрана? Вот чтобы при 50 было до самого края как при 100, помогите разобраться пожалуйста. 50 это для примера выложил, чтобы при любом значении красные линии были до самого края, ну то есть чтобы растягивались до конца экрана.

Решение задачи: «Как сделать растяжение по ширине экрана»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Sub Timer1_Timer()
    Dim A() As Integer, i As Integer, j As Integer, n As Integer, max As Integer  '
    n = Int(Rnd * 20 + 5)  ' каждый раз новый размер массива
    max = 100     ' максимальное значение массива А
    ReDim A(1 To n)
    For i = 1 To n
         A(i) = Int(Rnd * max) 'заполняем массив случайными значениями
    Next i
    For i = 1 To 10
         DrawGraph Picture1(i), A, max    'вызываем процедуру рисования
    Next i
End Sub
 
Private Sub DrawGraph(PB As PictureBox, Arr() As Integer, max As Integer)
    Dim i As Integer
    PB.Scale (0, max)-(UBound(Arr), 0): PB.AutoRedraw = True: PB.Cls
    For i = LBound(Arr) To UBound(Arr)
       PB.Line ((i - 1), 0)-(i, Arr(i)), RGB(255, 0, 0), BF
       PB.Line ((i - 1), 0)-(i, Arr(i)), RGB(0, 0, 255), B
    Next i
End Sub
                        