Visual Basic 6 - Scrollbarr,shell sort

Ciao a tutti,
sto sviluppando un programma che ordina un vettore con diversi tipo di ordinamento.
In un tasto ho implementato uno shell sort di questo tipo:
<--->
increment = 3

k = 0
While (increment > 0)
cc = cc + 1 'Conta confronti

For i = 1 + increment To numvet
temp = vaux(i)
cs = cs + 1 'Conta scambi
For j = i - increment To 1 Step 0 - increment
If (vaux(j) > temp) Then
cc = cc + 1 'Conta confronti
vaux(j + increment) = vaux(j)
cs = cs + 1 'Consta scambi
Else
Exit For
End If
Next j
vaux(j + increment) = temp
cs = cs + 1 'Conta scambi
Next i



increment = increment - 1
cs = cs + 1 'Conta scambi

Wend
<--->
Durante l'ordinamento pero devo incrementare una scrollbarr ma non so dove metterla^^"...Aiuto