TrackBar1_Scroll - zmiana tekstu przy odpowiedniej wartości

No więc mam takie coś jak:

TrackBar1_Scroll

Do tego Label16, Label17, Label18, etc. Chcę, aby pod wpływem przesuwania scrolla przy wartości przykładowo 10 - wyskoczył Label16 i ten tekst, który pod tym Labelem16 się kryje. Kiedy scroll osiągnie wartość 20 - niech wyskoczy Label17 (tym samym powodując, żeby Label16 zniknął). Potem przy 30 Label18, itd.,itd.

Pomysły jakieś?

Public Class Form1    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load        HideLabels()    End Sub    Private Sub HideLabels()        For Each l As Label In Controls.OfType(Of Label)()            l.Visible = False        Next    End Sub    Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll        Dim v = TrackBar1.Value        If v Mod 10 = 0 Then            HideLabels()            Dim i As Integer = v / 10            Dim l As Control = Controls("Label" & i.ToString)            If IsNothing(l) = False Then                l.Show()            End If        End If    End SubEnd Class

Zadziała dla labeli ponumerowanych kolejno od 1 do 10 czyli Label1, Label2 itd.

'Method 'Private Sub TrackBar1_Scroll(sender As Object, e As System.EventArgs)' cannot handle event 'Public Event Scroll(sender As Object)' because they do not have a compatible signature.'
.

Nie haczy.

No to kliknij dwukrotnie na swój scrollbar i wklej ten kod

Dim v = TrackBar1.ValueIf v Mod 10 = 0 ThenHideLabels()Dim i As Integer = v / 10Dim l As Control = Controls("Label" & i.ToString)If IsNothing(l) = False Thenl.Show()End IfEnd If