Scroll # Private Sub VScroll1_Change()
Dim i As Integer For i = 0 To 30 If i = 0 Then lblLabels(i).Top = VScroll1.Value txtFields(i).Top = VScroll1.Value Else lblLabels(i).Top = lblLabels(i - 1).Top + txtFields(i - 1).Height + 100 txtFields(i).Top = txtFields(i - 1).Top + txtFields(i - 1).Height + 100 End If Next datPrimaryRS.Caption = "Value " & VScroll1.Value End Sub Private Sub VScroll1_Scroll() Dim i As Integer For i = 0 To 30 If i = 0 Then lblLabels(i).Top = VScroll1.Value txtFields(i).Top = VScroll1.Value Else lblLabels(i).Top = lblLabels(i - 1).Top + txtFields(i - 1).Height + 100 txtFields(i).Top = txtFields(i - 1).Top + txtFields(i - 1).Height + 100 End If Next datPrimaryRS.Caption = "Value " & VScroll1.Value End Sub |