ＶＢの例では、
たとえば複数あるテキストボックスのフォントサイズを
これまた複数の（対応する）スクロールバーで変化させる場合‥‥

Private Sub HScroll1_Change(Index As Integer)
text1(Index).Font.Size = HScroll1(Index).Value

あんまりいい例じゃありませんが、
配列化しておくとこの種の記述が一カ所で済むもので‥‥。